Sub Macro2()

  Dim Arow As Range
  Set Arow = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
  Dim Irow As Range
  Set Irow = Arow.Offset(0, 8)

  Dim PreRangeToCopy As Range
  Set PreRangeToCopy = Range(Arow, Irow)
  Dim LastRangeToCopy As Range
  Set LastRangeToCopy = PreRangeToCopy.Offset(5, 0)

Dim Arowand As Range
Set Arowand = Arow.End(xlDown)
Dim Arowlast As Range
Set Arowlast = Arow.End(xlDown).Offset(0, 8)

Workbooks("Update").Worksheets("17_koniunktur_ogolny_klimat wie").Activate
ActiveSheet.ListObjects("3").Range.AutoFilter Field:=4, Criteria1:="10-49"
 Workbooks("Update").Activate
 Worksheets("17_koniunktur_ogolny_klimat wie").Select
Range(Arowand, Arowlast).Copy

Windows("Master.xlsx").Activate
  Sheets("17_koniunktur_ogolny_klimat wie").Select

'  ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$141"), , xlYes).name = "TableA"
'Range("Table1[#All]").Select

ActiveSheet.ListObjects("TableA").Range.AutoFilter Field:=4, Criteria1:="10-49"

Arowand.Select
    Selection.EntireRow.Insert

 Workbooks("Update").Worksheets("17_koniunktur_ogolny_klimat wie").Activate
 Range(Arowand, Arowlast).Copy

 Workbooks("Master.xlsx").Worksheets("17_koniunktur_ogolny_klimat wie").Activate
Arowand.Select
' Selection.Paste

Workbooks("Update").Worksheets("17_koniunktur_ogolny_klimat wie").Activate
 Range(Arowand, Arowlast).Offset(-5, 0).Copy

 Workbooks("Master.xlsx").Worksheets("17_koniunktur_ogolny_klimat wie").Activate
 Arowand.Offset(-1, 0).PasteSpecial xlPasteValues


'Windows("Master.xlsx").Activate
'Worksheets("17_koniunktur_ogolny_klimat wie").Select
'Arow.Copy
'ActiveSheet.Paste
'Application.CutCopyMode = False

'Dim move2 As Range
'Set move2 = LastRangeToCopy.Offset(0, 8)
'Workbooks("Update").Activate
' Worksheets("17_koniunktur_ogolny_klimat wie").Select
'LastRangeToCopy.Copy
'  Application.CutCopyMode = False
'Selection.Copy
'
'Windows("Master.xlsx").Activate
'Worksheets("17_koniunktur_ogolny_klimat wie").Select
'Arowand.Copy
'ActiveSheet.Paste

End Sub