For a =
1 To
10 ' цикл перебирает столбики (1 - это номер столбца с первым значением а 10 - последним)
Cells(
4 + a, 1) = Cells(
1, a)
Cells(
4 + a, 2) = Cells(
2, a)
Next a
изменять можно адреса выделенные цветом,
переменные менять нельзя, их программа меняет
для понимания: ячейка обозначается Cells(1, 1)
где перед запятой номер строки, а после - номер столбца
в данном примере это ячейка в первой строке в первом столбце