Есть ли способ динамически выбирать диапазон в макросе на основе позиции курсора?

Question

Я хочу скопировать строки из столбцов A в CO, но строка будет отличаться каждый раз. Я хотел бы скопировать диапазон A: CO на основе позиции курсора.

Range("A6:CO6").Copy
    Sheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Sheets("Active").Select
    Rows("6:6").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
End Sub

Я хотел бы выбрать строку с позицией курсора и иметь диапазон копии A: CO в поле Completedпростынь. У меня этот макрос работает, но только для 6-й строки.

Answer 1

Замените строку .Copy следующим:

ActiveSheet.Range("A" & ActiveCell.Row & ":CO" & ActiveCell.Row).Copy

Она строит строку диапазона на основе ActiveCell.Row, аналогично тому, что вы делаете со строкой 2 в своем фрагменте.

Answer 2

Простое решение с использованием изменения размера.

ActiveCell.Resize(, 93).Copy
Sheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues