Hello all
I am getting an error on the code below highlited Bold
Runtime Error 1004 "This selection isn't valid. Make sure the copy and paste area's don't overlap unless they are the same size and shape"
I am copying an active Row but then Transposing to column "B1"
I know the issue is copy Rows to a Column as the size is different but any idea's please on how to fixed this or even improve the code
I am getting an error on the code below highlited Bold
Runtime Error 1004 "This selection isn't valid. Make sure the copy and paste area's don't overlap unless they are the same size and shape"
I am copying an active Row but then Transposing to column "B1"
I know the issue is copy Rows to a Column as the size is different but any idea's please on how to fixed this or even improve the code
Code:
Sub PopulateGRV()
Sheets("Submission").Visible = True
Sheets("GRV").Visible = True
On Error GoTo DuplicatedReference
Application.ScreenUpdating = False
'POPULATE THE TEMPLATE
Rows(ActiveCell.Row).Copy
Sheets("Submission").Select
Range("B1").Select
[B] Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True[/B]
Application.CutCopyMode = False
Application.DisplayAlerts = False
Sheets("GRV").Select
Worksheets("GRV").Copy After:=Worksheets(Worksheets.Count)
Last edited: