fill until it reaches Column D

[sufianmalik]

Hi

I have a total in column DV

I would like fill handle to copy this to the left until it reaches column D, anyone tell me how?!

The other way could be to check the cell above until it has a text value rather than number?



Sub fill_total()

ActiveCell.Copy

Do Until ActiveCell.Columns(4)

ActiveCell.Offset(0, -1).PasteSpecial

Loop



End Sub

 

[Damon Ostrander]

Hi sufianmalik,

I believe this one line of code will do it:

Sub fill_total()

   'Autofill the selected row to the left to column D
   ActiveCell.AutoFill Range(ActiveCell, Cells(ActiveCell.Row, "D"))

End Sub

Keep Excelling.

Damon