Guttmann1983
Board Regular
- Joined
- Jul 27, 2015
- Messages
- 181
Hi, I need to copy and paste data from column B to sheet "Data" at row A500. Caveat is that rows a1-a400 or so have data in there so I am running into an error. Below is the code I have that is giving me an error.
Sub Macro1()
Dim lr As Long
lr = Range("C" & Rows.Count).End(xlUp).Row
Range("B2:B" & lr).Formula = "=A2&':'&C2"
Range("E1:E" & lr).Formula = "=IFERROR(VLOOKUP(A1,Data!A:C,2,FALSE), ""NOT FOUND"")"
Application.CalculateFull
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("A500").Select
ActiveSheet.Paste
End Sub
Sub Macro1()
Dim lr As Long
lr = Range("C" & Rows.Count).End(xlUp).Row
Range("B2:B" & lr).Formula = "=A2&':'&C2"
Range("E1:E" & lr).Formula = "=IFERROR(VLOOKUP(A1,Data!A:C,2,FALSE), ""NOT FOUND"")"
Application.CalculateFull
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data").Select
Range("A500").Select
ActiveSheet.Paste
End Sub