Мне нужно сместить данные, которые я копирую, чтобы новые данные не стирали старые данные.
Я пробовал разные методы со смещением. Но я явно что-то делаю не так
Dim lastrow As Long: lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Dim lastrow2 As Long: lastrow = Cells(Rows.Count, "h").End(xlUp).Row
Application.ScreenUpdating = False
With Sheets("Test")
.AutoFilterMode = False
.Range("A1:C" & lastrow).AutoFilter field:=3, Criteria1:="=TEST Sheet", Operator:=xlFilterValues
.Range("A1:C" & lastrow).AutoFilter field:=2, Criteria1:="=New"
.Range("A2:A" & lastrow).SpecialCells(xlCellTypeVisible).Copy .Range("H26").Offset(lastrow2, 0)
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
Таким образом, в основном все скопированные данные поступают в строку H, но список должен продолжать увеличиваться.