Hi GVM,

Try someting like:

Sub Tester()
Dim iRow As Long

iRow = 50

Range("H13:M13").AutoFill _
Destination:=Range("H13:M" & iRow), _
Type:=xlFillDefault

End Sub
'===================


---
Regards,
Norman



"gvm" wrote in message
...
I need to use code similar to the following:
Range("H13:M13").Select
Selection.AutoFill Destination:=Range("H13:M18"), Type:=xlFillDefault
except that I need the end of the range (M18) to be a calculated value, eg
M13 plus a variable number of rows.

I suspect the solution is to write the range in row and column format, but
how do I do that please?
thanks ... Greg