Seeker After
Member
Hello all,
I've been going circles with the VBA code below trying to figure out how to copy vertical data from one sheet and paste just the values transposed horizontally to another in the first empty cell in column be of another sheet. This really is my first attempt to do any VBA programming and I haven't made much progress. Or use the macro recorder ultimately to get me as far as I am below. I think it would work except I cannot determine how to get it to paste to the next empty row. Any help would be great. Let me know what kind of clarifying information I should've included. Thanks again.
I've been going circles with the VBA code below trying to figure out how to copy vertical data from one sheet and paste just the values transposed horizontally to another in the first empty cell in column be of another sheet. This really is my first attempt to do any VBA programming and I haven't made much progress. Or use the macro recorder ultimately to get me as far as I am below. I think it would work except I cannot determine how to get it to paste to the next empty row. Any help would be great. Let me know what kind of clarifying information I should've included. Thanks again.
Code:
Sub COPYPASTER()
'
' COPYPASTER Macro
' COPING DATA FROM SHEET PLOT PASTING TRANSPOSED VALUES ONLY TO TO NEXT EMPTY LINE IN COLUMN B OF SHEET SQR
Sheets("Plot").Range("C25:C29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SQR").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub