VBA Autofill Error

[Hobbes25]

Good Afternoon guys

I have a macro that takes a file from a folder, formats it, and then locks and saves it. It pulls 4 different excel CSV files from one folder. The macro worked fine until I tried to implement the last two of the four. It is giving me run time error '1004' and saying "AutoFill method of Range class failed".

Range("E1").Select
ActiveCell.Formula = "AD Group"
If Range("A1").Value = "" Then
Else
Range("E2").Select
ActiveCell.Formula = "a-RRAxx-KYCHighRiskOffshoreRW"
Dim lastrowOffshoreRW As Long
lastrowOffshoreRW = Cells(Rows.Count, 1).End(xlUp).Row
Selection.AutoFill Destination:=Range("E2:E" & lastrowOffshoreRW)

The program seems to stop running whenever there is only one entry in the CSV file. If you add another entry it works fine. Any suggestions?

Thanks

 

[Fluff]

Hi & welcome to MrExcel
try

lastrowOffshoreRW = Cells(Rows.Count, 1).End(xlUp).Row
[COLOR=#ff0000]If lastrowOffshoreRW > 1 Then [/COLOR]Selection.AutoFill Destination:=Range("E2:E" & lastrowOffshoreRW)

 

[Hobbes25]

thank you for the warm welcome fluff! unfortunately it is still throwing an error for me. is there anyway I could put in a blank line? whenever there are enough entries it runs and compiles fine. It gets past the spreadsheet with data from A1-A3, but the one that only has data from A1-A2 does not work

 

[Fluff]

Apologies, I didn't read the code properly, It should be

If lastrowOffshoreRW >[COLOR=#ff0000] 2[/COLOR] Then

 

[jproffer]

Fluff, wouldn't it have to be greater than 2 since he's starting in E2? Just a question...I'm learning from this also.

EDIT: Posting at the same time...I see you answered my question above.

 

[Hobbes25]

That worked perfectly thank you very much Fluff! I'll be around the boards as I learn more.

 

[Fluff]

Glad to help & thanks for the feedback