VBA Copy and Paste

[Shamos]

Hi,

My ability using Macro's is limmited so please excuse the bad code!

I'm trying to use VBA to transpose and paste data from one sheet to another.

I can get the first row and the start of the second as B:B will always have data, however C:C may have blank cells depending on the avaliable options.

How do I get C:C to align / start where Range("B:B").Find(""). starts?

How do I get my code to drop down a row on sheet one till it hits a blank?

Thanks

Sub shauns_1()
'

Application.DisplayAlerts = False

Sheets("Selectable Options").Select
'Range("A2").Select
'Selection.Copy
'Sheets("Sheet2").Select
'Range("A1").Select
'ActiveSheet.Paste
Sheets("Selectable Options").Rows("1:1").Select
'Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Selectable Options").Select
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("C1").Select
Sheets("Selectable Options").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Columns("C:C").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Selectable Options").Select
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B:B").Find("").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Selectable Options").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B:B").Find("").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

End Sub

 

[Shamos]

Perfect - thank you once again