Auto Fill Error

[heffo500]

Hi

Would someone be able to help why this doesn't work?

Sub Macro5()
'
' Macro5 Macro
'
Dim LR As Long, LR2 As Long, LR3 As Long, code As String

Sheets("Core Data").Select

LR = Range("B" & Rows.Count).End(xlUp).Row
LR2 = Range("R" & Rows.Count).End(xlUp).Row
LR3 = (Range("R" & Rows.Count).End(xlUp).Row) + 1
code = "R" & LR3 & ":V" & LR

    
    Range("R" & LR2 & ":V" & LR2).Select
    Range("V" & LR2).Activate
    Selection.AutoFill Destination:=Range(code), Type:=xlFillDefault
    Range(code).Select

End Sub

I'm importing data into first empty row in cells A:P and then autofill the formulas from R:V. However I get the following error:
Excel VBA Runtime Error 1004 - "Autofill Method of Range Class Failed”


Any help would be great.

Thanks

 

[Fluff]

How about

Sub heffo()
   Dim Lr As Long
   With Sheets("Core Data")
      Lr = .Range("B" & Rows.Count).End(xlUp).Row
      With .Range("R" & Rows.Count).End(xlUp)
         .Resize(Lr - .Row + 1, 5).FillDown
      End With
   End With
End Sub

 

[jasonb75]

You have a lot of code that you don't need, but nothing stands out as the potential cause of your error.

Are any of the formulas in merged cells?

 

[heffo500]

How about

Sub heffo()
   Dim Lr As Long
   With Sheets("Core Data")
      Lr = .Range("B" & Rows.Count).End(xlUp).Row
      With .Range("R" & Rows.Count).End(xlUp)
         .Resize(Lr - .Row + 1, 5).FillDown
      End With
   End With
End Sub

Thanks a million that work perfectly, I want this to copy down the formula which it does and then afterwards copy all cells and past special over the cell with values that the original formulas returned, what would be the best way to do this?

 

[Fluff]

How about

Sub heffo()
   Dim LR As Long
   With Sheets("Core Data")
      LR = .Range("B" & Rows.Count).End(xlUp).Row
      With .Range("R" & Rows.Count).End(xlUp)
         .Resize(LR - .Row + 1, 5).FillDown
         .Resize(LR - .Row + 1, 5).Value = .Resize(LR - .Row + 1, 5).Value
      End With
   End With
End Sub