Selecting used cells

[pells]

Is it possible to select cells where there is something in them, copy them and past them to a new sheet in the same workbook and skip all blanks?

For example, if there is something in cell B11, B15 & B20 in sheet1 copy the contents and past them into the same cells in sheet2. I will need to be specific to start to look in Cell B11, not the whole sheet1 from A1.

Many thanks.

 

[VoG]

Maybe like this

Sub test()
Sheets("Sheet1").Columns("B").SpecialCells(xlCellTypeConstants).Copy Destination:=Sheets("Sheet2").Range("B1")
End Sub

 

[pells]

Maybe like this

Sub test()
Sheets("Sheet1").Columns("B").SpecialCells(xlCellTypeConstants).Copy Destination:=Sheets("Sheet2").Range("B1")
End Sub

Hi - many thanks for this, but I need to be able to select from B11, not the whole of column B.

So if there is something from B11 copy, else skip it.

Is this possible?