transferring data/text to another worksheet

J

jschmeling2000

I have two columns/rows with the following data on Sheet1:

Column: A B
Row:
1 178 buy
2 buy
3 185 buy
4 140 sell
5 sell
6 sell
7 130 buy

I want to tranfer to sheet 2, all the cells in column A that have
number value and if column A has a number, then transfer the text i
column B. This is what I want sheet 2 to look like:

Column: A B
Row:
1 178 buy
2 185 buy
3 140 sell
4 130 buy
5
6
7

How can I do this!
Thanks,
Jo
 
R

Ron de Bruin

Try this macro

Sub Test()
Columns("A").SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Copy _
Sheets("Sheet2").Cells(1)
End Sub
 
D

Don Guillett

just use data>filter>autofilter>non blanks>f5 visible cells>copy >paste to
other sheet.
 
Top