Macro help

[puiuluipui]

Hi, i need a macro to drag down some cells till the last active cell in "G"
column.

Ex:
M N O
08:00:00 12:30:00 08:30:00

I need to select M1:O1 and to drag down till the last cell with some data in
column "G".

Can this be done?
Thanks!

 

[Mike H]

Hi,

Try this

Sub FillUp()
Dim x As Long
lastrow = Cells(Cells.Rows.Count, "G").End(xlUp).Row
Range("M1:O1").AutoFill _
Destination:=Range("M1:O" & lastrow), Type:=xlFillDefault
End Sub

Mike

 

[Mike H]

Hi,

I meant

Sub FillUp()
Dim lastrow As Long
lastrow = Cells(Cells.Rows.Count, "G").End(xlUp).Row
Range("M1:O1").AutoFill _
Destination:=Range("M1:O" & lastrow), Type:=xlFillDefault
End Sub

Mike

 

[puiuluipui]

Works perfect!
Thanks Mike!

"Mike H" a scris:

Hi,

Try this

Sub FillUp()
Dim x As Long
lastrow = Cells(Cells.Rows.Count, "G").End(xlUp).Row
Range("M1:O1").AutoFill _
Destination:=Range("M1:O" & lastrow), Type:=xlFillDefault
End Sub

Mike