Я делаю это с помощью функции удаления:
sht.Range (col1 & ":" & col2) .delete
Вы можете изменить это, чтобы сделать это:
ThisWorkbook.Sheets("Sheet2").Range("A1:C1").Value=ThisWorkbook.Sheets("Sheet1").Range("A1:C1").Value
Вам, очевидно, нужно поменять местами A1: C1 с переменными на основе некоторых критериев. Но это установит диапазон ячеек равным другому диапазону