I guess my first question is, does this work?

for a = d to cz

or do i have to use numbers? the basic idea is to have a program that goes
from column to column along row 1 and look for the value 1. if it finds that
value then it will copy formulas vertically in that column within a certain
range as follows:

Private Sub CommandButton3_Click()

For a = d To z
If Range(a & "1") = 1 Then ''''''''IT CRASHES HERE!
Range(a & Range("by1")).AutoFill Destination:=Range(a & "9:" & a &
Range("by1")), Type:=xlFillValues
End If
Next a

End Sub

probably not the best method anyway...