One way:

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim LastRow As Long

Set wks = Worksheets("Sheet1")

With wks
LastRow = .Cells(.Rows.Count, "R").End(xlUp).Row

If LastRow < 4 Then
MsgBox "Not enough rows to fill down!"
Else
.Range("Q3").Value = 1
.Range("Q4").Value = 2
.Range("Q3:Q4").AutoFill _
Destination:=.Range("Q3:Q" & LastRow), _
Type:=xlFillCopy
End If
End With

End Sub




Aussie Bob C wrote:

Hi

Can I filldown column Q starting at Q3 the recurring numbers 121212 down to
lastcell in column R.

Example:
Cell
Q3 - 1
Q4 - 2
Q5 - 1
Q6 - 2
Q7 - 1
Q8 - 2

TIA
--
Thank you

Aussie Bob C
Little cost to carry knowledge with you.

--

Dave Peterson