Sub Auto_Fill()
Dim Lrow As Long
With ActiveSheet
Lrow = .Range("B" & Rows.Count).End(xlUp).Row
.Range("C2:C" & Lrow).FillDown
End With
End Sub

You could use one macro to add the formula to C2 then copy down.

Sub Auto_Fill()
Dim Lrow As Long
With ActiveSheet
.Range("C2").Formula = "=PattMatch(A2,MainMap!$A$12:$F$15," & _
"MainMap!$H$11:$I$17,MainMap!$A$19:$B$24)"
Lrow = .Range("B" & Rows.Count).End(xlUp).Row
.Range("C2:C" & Lrow).FillDown
End With
End Sub



Gord Dibben MS Excel MVP

On Tue, 14 Oct 2008 12:27:47 -0700 (PDT), ChipButtyMan
wrote:

Hi,
I have a simple formula like;

=PattMatch(A2,MainMap!$A$12:$F$15,MainMap!$H$11:$ I$17,MainMap!$A$19:$B
$24)

I have a command button to enter it into Range("C2")

How do I copy & paste it into all rows below?

Thank you for your help.