Suche einen bestimmten Makrobefehl:
Wenn leere Zelle in Spalte J, dann die linken 4 Zellen (von der leeren Zelle ausgesehen) eine Zelle nach rechts verschieben.
Besten Dank im Voraus
Mit freundlichen Grüßen
Karsten
Sub Karsten()
Dim c As Range, _
laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 10).End(xlUp).Row
For Each c In Range("J1:J" & laR)
If c.Value = "" Then
Range("K" & c.Row & ":N" & c.Row).Copy _
Destination:=Range("J" & c.Row)
Range("N" & c.Row).ClearContents
End If
Next c
Application.ScreenUpdating = True
End Sub