Copy data from a column to a row with vba?

[tonywatsonhelp]

Hi everyone,
I have a sheet called "Prospect"
Range "G7:G17"
I want to copy it to sheet "Data" first first empty row and paste it in from column "C" but across the row not down the column like you would with traspose but only values.
please help if you can

Thanks
Tony

 

[My Aswer Is This]

Try this:

Sub Copy_Transpose()
'Modified 3/20/2019 5:15:22 AM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Sheets("Data").Cells(Rows.Count, "C").End(xlUp).Row + 1
Sheets("Prospect").Range("G7:G17").Copy
Sheets("Data").Cells(Lastrow, 3).PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[tonywatsonhelp]

Thank you, works perfectly

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thank you, works perfectly