Sub BBB()
Dim rw As Long
rw = Application.InputBox( _
"Enter row to fill to", Type:=1)
Range("A1:B1").AutoFill _
Destination:=Range("A1:B" & rw)
End Sub

--
Regards,
Tom Ogilvy



"Paputxi" wrote in message
...
Say I have formulas in A1 and B1. I want to write VBA code to fill the
formulas down to, say, row 20 (which will actually be an input value).
What
is some VBA code for doing that?