Выполнить цикл для каждой ячейки из активной ячейки

Question

Поэтому я пытаюсь переместить данные из столбца 1 в столбец 2.

Поскольку в столбце 2 могут быть объединены ячейки, я выбрал путь копирования-вставки, поэтому теперь следую этой логике:

1. перебирает каждую ячейку в столбце 1
2. присваивает значение каждой ячейке переменной
3. присваивает значение переменной каждой последней пустой ячейке в столбце 2

Это работает просто отлично.Однако начало моего диапазона в столбце 1 тоже меняется.

Есть ли способ установить вместо x=range ("A" & i).value что-то вроде x = range(Activecell & i).value?Кажется, это не сработает, если я сделаю это в точности так.

Sub pastetest()
    Dim x As String

    For i = 1 To 10
        x = Range("A" & i).Value
        Range("B" & Rows.Count).End(xlUp).Offset(1).Value = x
    Next i
End Sub