Find ikke tomme felter og copy til anden kolonne

Et bud er herunder. NB: Husk at tage backup af din fil først. Der er som standard ingen 'fortryd' i VBA.

Sub OverskrivHvisVærdi()
'Skriv i kolonne B hvis værdi i kolonne C
Dim rk As Range
Dim omr As Range
'Foretag ændring af området i kolonnne C hvis det skal være større end til række 1000
Range("C1:C1000").Name = "omr"

With Application
.ScreenUpdating = False
.DisplayStatusBar = False
.EnableEvents = False
End With

'Løkken kører hele området igennem og kopierer en evt. værdi i kolonne C til forrige kolonne, samme række
  For Each rk In Range("omr").Rows
      If rk.Cells(1).Value <> "" Then
        rk.Offset(0, -1).Value = rk.Offset(0, 0).Value
      End If
  Next rk

With Application
.ScreenUpdating = True
.DisplayStatusBar = True
.EnableEvents = True
End With

MsgBox "Færdig" 'Kan undværes, men fortæller at makroen er færdig

End Sub

Det er super - Hvis du vil smide et svar - så får du den :) Tak for hjælpen

Svaret er her