Autofill a destination range using last row value

Hi i am trying to a part of my macro where the autofill function is used on one column.

I have used the following line to find the last row in the spreadsheet:

lastrow = Cells(Rows.Count, "A").End(xlup).Row + 1

then i want to autofill the column J after i have put in the 1st value into cell J2

Selection.AutoFill Destination:=Range("J2" & lastrow), Type:=xlFillDefault

it comes up with Method range of object global failed

Please help!

jaym911,

Try changing this section of code:

Selection.AutoFill Destination:=Range("J2" & lastrow), Type:=xlFillDefault

To this instead:

Selection.AutoFill Destination:=Range("J2:J" & lastrow), Type:=xlFillDefault

Hope this helps,
~tigeravatar

Hi

I'm very new to macros (comlete novice) and first time posting so forgive me in advance if my question has been asked already or if I am not making myself clear in what I'm asking. I'm trying to put 4 differenent formulas into 4 different columns and then use the autofill function to fill the formulas to the last row in each column on the sheet but when I run the macro it comes up with "Autofill method of Range class failed" - see what I've created below.

I'd appreciate any help/direction you can give.

Thanks

Sub Formulas()
'
' Formulas Macro
lastrow = Cells(Rows.Count, "BE").End(xlUp).Row + 1
Range("BE3") = "=IF(RC55="""",-30,IFERROR(RC55-R1C57,-30))"
Selection.AutoFill Destination:=Range("BE3:BE" & lastrow), Type:=xlFillDefault

lastrow = Cells(Rows.Count, "BE").End(xlUp).Row + 1
Range("BF3") = "=IF(RC57="""",""no"",IF(AND(RC57>-30,RC57<1),""yes"",""no""))"
Selection.AutoFill Destination:=Range("BF3:BF" & lastrow), Type:=xlFillDefault

lastrow = Cells(Rows.Count, "BE").End(xlUp).Row + 1
Range("BG3") = "=IF(RC58=""yes"",""FC Loaded"",""Check with SE""))"
Selection.AutoFill Destination:=Range("BG3:BG" & lastrow), Type:=xlFillDefault

lastrow = Cells(Rows.Count, "BE").End(xlUp).Row + 1
Range("BH3") = "=RC1&""_""&RC2&""_""&RC3"
Selection.AutoFill Destination:=Range("BH3:BH" & lastrow), Type:=xlFillDefault

End Sub

Thanks Fotis

My apologies. I will get the hang of it soon!!

Regards
Sparky