the Code works all fine but the only problem is it is not pasting the data one below the other any help
VBA Code:
Sub AutoFilterData()
Sheets("MSP Response Time RawData").Select
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
With ActiveSheet
.AutoFilterMode = False
.Range("A1:BK" & LR).AutoFilter Field:=54, Criteria1:="1"
.Range("A1:BK" & LR).AutoFilter Field:=63, Criteria1:="2 Hrs"
End With
Dim A As Worksheet
Dim Z As Worksheet
Dim L1 As Long
Set A = Sheets("Raw Data 2 Hrs")
Set Z = Sheets("MSP Response Time RawData")
L1 = A.Cells(Rows.Count, "A").End(xlUp).Row 'here not selectiong the last empty row
Z.Range("a1:bk" & LR).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy A.Range("a1" & L1) 'here not copying the last empty row
Sheets("MSP Response Time RawData").Select
With ActiveSheet
.AutoFilterMode = False
.Range("A1:BK" & LR).AutoFilter Field:=54, Criteria1:="1"
.Range("A1:BK" & LR).AutoFilter Field:=63, Criteria1:="4 Hrs"
End With
Dim B As Worksheet
Dim Z1 As Worksheet
Dim L2 As Long
Set B = Sheets("Raw Data 4 Hrs")
Set Z1 = Sheets("MSP Response Time RawData")
L2 = B.Cells(Rows.Count, "A").End(xlUp).Row 'here not selectiong the last empty row
Z1.Range("a1:bk" & LR).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy B.Range("A1" & L2) 'here not copying the last empty row
end sub