Hej Jens,
Jeg tror ikke jeg helt kan forstå hvad du mener.
Din kode søger i en kolonne og hvis den finder en tom celle kopierer den alle celler over sig selv og til højre, og rykker dem en kolonne til højre.
Hvad skal der ændres?
Jeg har forsøgt at ændre din makro til at kunne køres flere gange (hvis det ønskes)
Sub Makro3()
home = ActiveCell.Address
homeArk = ActiveSheet.Name
emty = Range(home).End(xlDown).Address
Range(home, emty).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Range(Selection, Selection).Offset(0, 1).Select
ActiveSheet.Paste
Range(Selection, Selection).Offset(0, 0).Select
Sheets(homeArk).Select
Range(home).Select
End Sub
//Allan