Hi there

this code is pretty much straight from the excel help file

Dim SourceRange As Range
Dim FillRange As Range

With Sheets(1)
Set SourceRange = .Range("C3:C4")
Set FillRange = .Range("C3:C32")
SourceRange.AutoFill Destination:=FillRange
End With

Hope this helps

steve