Macro til kopiering af celleindhold

Følgende burde virke hvis der stå noget i alle cellerne i kolonne D

Sub udfyld()

Range("D1").Activate

While ActiveCell.Value <> ""
  If ActiveCell.Offset(0, 1).Value = "" Then
      ActiveCell.Offset(0, 1).Value = ActiveCell.Value
  End If
  ActiveCell.Offset(1, 0).Activate
Wend

End Sub

Sub Makro1()
Dim t
[e2].Activate

For t = 1 To 500 ' ret til aktuel række antal
  If ActiveCell.Value = "" Then
  ActiveCell.Value = ActiveCell.Offset(, -1).Value
  End If
  ActiveCell.Offset(1, 0).Activate
Next
[e2].Activate

End Sub

tholjoh det fungerer perfekt. Ikke fordi excelent's ikke også virker, men nu fik jeg lige din puttet i først. De er alle point værd, men hvordan får du dem lige tildelt.

Du skal bare acceptere dette svar