cannot autofill 2 cells info at the same time
 

Hi,
i try to autofill 2 cells(Rw 3 & 4 info at the same time,and wish to
auotfill rw 5 till lastrow of used rows. i try to do manual , it can be
autofill, but when macro, it can't. The target is to get the final result
like that:

Column C * Autofill Col C only
H 'Row 3
D "Row 4
H ' And so on...
D
H
D
H
D
H
D
H
D
H
D
H
D
H 'Last Used Row

this is my script:

Sheets("New Forecast").Select
Range("C3").Select
ActiveCell.FormulaR1C1 = "H"
Range("C4").Select
ActiveCell.FormulaR1C1 = "D"
Range("C3:C4").Select
Selection.Copy
Range("C5").Select
Selection.AutoFill Destination:=Range("C5:C" &
ActiveSheet.UsedRange.Rows.Count)


can someone advise me?

cannot autofill 2 cells info at the same time
 

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