[Rozwiązano] VBA: Kopiowanie kolumny A i wklejanie do kolejnych kolumn po kliknięciu

Cześć,
Mam problem z makrem dotyczącym kopiowania kolumny A i po każdorazowym kliknięciu "przycisku" wklejania do kolejnej kolumny.
Na zasadzie zaznacz całą kolumnę A i wklej (z formułami) do kolumny B, po kolejnym kliknięciu znów zaznacz kolumnę A i wklej do C itd.
Byłbym mega wdzięczny za pomoc. Jestem zielony a potrzebuję takiej opcji do analizy.
Pozdrawiam

Dodano po 9 [minuty]:

Nagrałem sobie kod który kopiuje "stały zakres" i wkleja do kolumny obok. Zaznacza dwie kolumny bo są tam scalone komórki, tj wkleja do kolejnych dwóch.

Sub DodajBudynek()
'
' DodajBudynek Makro
'

'
Columns("D:E").Select
Range("D5").Activate
Selection.Copy
Columns("F:F").Select
ActiveSheet.Paste

End Sub

Niestety nie działa. Kopiuje dany zakres i wkleja w kolumnę do tyłu. Po kolejnym kliknięciu wkleja w to samo miejsce.
Potrzebuję aby wklejało w następną kolumnę pamiętając że jest to zakres dwóch kolumn. Czyli kopiuj D:E i wklej w F czyli tak naprawdę w F:G,
po kolejnym kliknięciu kopiuj D:E i wklej w H czyli tak naprawdę zajmie zakres H:I itd.

Działa.
Do wyznaczenia 'nowej' kolumny jest brany pod uwagę wiersz 1.
Cells(1, Columns.Count).End(xlToLeft).Column

Dopasuj to sobie.

Metodą prób i błędów wpisałem 90 i działa.
Mógłbyś mi powiedzieć do czego odnosi się to 90 że nagle zaczęło działać poprawnie?
Dzięki za pomoc

Metoda prób i błędów, to nie jest najlepsza metoda.

Żeby kolumny 'D:E' skopiować w prawo, w pierwszą wolną kolumnę, to trzeba ją określić/znaleźć.
Liczba, o której mowa, to wiersz w którym wyznaczana jest pierwsza wolna kolumna (od prawej strony).

Jeśli zależy Ci na efekcie jak na zrzucie:
2019-06...png (50.12 kB)Musisz być zalogowany, aby pobrać ten załącznik.
to spróbuj makra jak w załączniku
Powielanie...olumny.xls (101.5 kB)Musisz być zalogowany, aby pobrać ten załącznik.

A w jaki sposób ją określić/znaleźć? Dalej tego nie czaje czemu po wpisaniu 90 zaczęło działać. Skoro jest pusto od kolumny F (wszystkie wiersze)

PRL napisał:

Metoda prób i błędów, to nie jest najlepsza metoda.

Żeby kolumny 'D:E' skopiować w prawo, w pierwszą wolną kolumnę, to trzeba ją określić/znaleźć.
Liczba, o której mowa, to wiersz w którym wyznaczana jest pierwsza wolna kolumna (od prawej strony).

Cytat:

Skoro jest pusto od kolumny F (wszystkie wiersze)

Skoro tak, to sprawdzenie wiersza 1 musi działać.


Mam nadzieję, że obrazek wszystko wyjaśnia...

P.S. Makro powinno nazywać się OstatniaKolumna.

na podstawie odpowiedzi