Paste Problem

[woodpecker2]

I've created a macro that enter a formula in a cell and should then copy/paste the formula into selected cells within column H.

There are in excess of 20,000 rows that this needs to be copied down to and I keep getting an error message informing me the range is to big.

I need to get the macro to work correctly and am struggling with this issue. Could someone help this novice?

My code is shown below:-

"=IF(ISNA(VLOOKUP(RC[-7],Table,8,FALSE)),""Error"",VLOOKUP(RC[-7],Table,8,FALSE))"
   Range("H3:I3").Select
   Range("I3").Activate
   ActiveCell.FormulaR1C1 = _
       "Thursday"
   Range("H3:I3").Select
   Selection.Copy
   Range("H3:H" & LastRow3).Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Selection.Copy
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
       False, Transpose:=False

 

[goofy78270]

Could you possibly use .FILLDOWN?

 

[Norie]

Are you sure that's all the code?

Seems to be something missing at the start.

 

[woodpecker2]

I think this is all the code that is being effected:-

Dim LastRow1 As Long
Dim LastRow2 As Long
Dim LastRow3 As Long




   LastRow1 = Range("C65536").End(xlUp).Row
   Range("A3").Select
   ActiveCell.FormulaR1C1 = "=RC[2]&"" ""&RC[3]"
   Selection.Copy
   Range("A3:A" & LastRow1).Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Selection.Copy
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
       False, Transpose:=False

   LastRow2 = Range("L65536").End(xlUp).Row
   Range("K3").Select
   ActiveCell.FormulaR1C1 = "=RC[2]&"" ""&RC[3]"
   Selection.Copy
   Range("K3:K" & LastRow2).Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Selection.Copy
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
       False, Transpose:=False

   LastRow3 = Range("C65536").End(xlUp).Row
   Range("E3").Select
'    ActiveCell.FormulaR1C1 = _

"=IF(ISNA(VLOOKUP(RC[-4],Table,5,FALSE)),""Error"",VLOOKUP(RC[-4],Table,5,FALSE))"
   ActiveCell.FormulaR1C1 = "m"
   Selection.Copy
   Range("E3:E" & LastRow3).Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Selection.Copy
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
       False, Transpose:=False
   Range("H3:I3").Select
   Application.CutCopyMode = False
   ActiveCell.FormulaR1C1 = _

"=IF(ISNA(VLOOKUP(RC[-7],Table,8,FALSE)),""Error"",VLOOKUP(RC[-7],Table,8,FALSE))"
   Range("H3:I3").Select
   Range("I3").Activate
   ActiveCell.FormulaR1C1 = _
       "Thursday"
   Range("H3:I3").Select
   Selection.Copy
   Range("H3:H" & LastRow3).Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
   Selection.Copy
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
       False, Transpose:=False

 

[woodpecker2]

Bump.