Vidim iz priloga da si pokušao da snimiš makro, što je dobar početak. Tu možeš da vidiš kako se kodom odrađuje copy - paste. U tvom slučaju jedini problem je odrediti gde je sledeća prazna kolona tj. gde treba da se kopira.
Jedan kratak način je da krenemo od E5 (opseg koji se kopira) pa se sa End (xlToRight) pozicioniramo u poslednju popunjenu kolonu desno od posmatrane i onda se pozicioniramo još jednu kolonu desno Offset(ColumnOffset:=1)
Ceo makro bi mogao ovako
Code:
Option Explicit
Sub Popuni()
'
' Makro koji kopira podatke iz kolone E
' U prvu slobodnu kolonu od H
'
' Keyboard Shortcut: Ctrl+l
'
Dim rngSrc As Range
Dim rngDest As Range
' Opseg koji se kopira
Set rngSrc = ActiveSheet.Range("E5:E9")
' Gde da se kopira
Set rngDest = rngSrc.End(xlToRight).Offset(ColumnOffset:=1)
' Kopiranje po vrednosti
rngSrc.Copy
rngDest.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False ' Finish copy/paste
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?