Fill Problem

[Paputxi]

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?

[Tom Ogilvy]

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" <Paputxi@discussions.microsoft.com> wrote in message
news:1ABE5B6D-8D7E-46AD-BDD6-7C5E9CF1D64C@microsoft.com...
> 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?