VBA Range_Copy Macro - Как применить ту же задачу к последующим строкам

Question

У меня есть рабочая таблица со списками предметов.Одно поле может иметь 1 из 14 описаний.Я думал, что создание макроса будет быстрее, чем ручной переход на отдельный лист и копирование и вставка нужного описания каждый раз.

Я совершенно новичок в этом, но мне удалось создать макрос, собирающий данные в ячейке A1 на одном листе и добавляющий эти данные в ячейку S3 на другом листе - см. Код ниже.(У каждого описания есть свой лист с данными в ячейке A1). Мой вопрос: как перейти к следующей строке и ячейке S4.Заранее спасибо!

Sub Range_Copy()

Worksheets("Used Single Items Returns").Range("A1").Copy Worksheets("Gopher Items CSV Test").Range("S3")

End Sub

Answer 1

Если вы просто хотите скопировать в столбец S в выбранной строке:

Sub Range_Copy()
    Dim r
    Set r = Selection.Cells(1).entirerow.range("S1") 'relative to row, not sheet
    Worksheets("Used Single Items Returns").Range("A1").Copy r
End Sub