loop?
typo.......
Worksheets("Sheet1")Column(1).Copy .Range("A1")
should be
Worksheets("Sheet1").Column(1).Copy.Range("A1")
:)
susan
On Jun 24, 3:02*pm, "Bob Phillips" wrote:
* * With Worksheets("Sheet2")
* * * * Worksheets("Sheet1")Column(1).Copy .Range("A1")
* * * * LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
* * * * For i = LastRow To 2 Step -1
* * * * * * If .Cells(i, "A").Value = "" Then
* * * * * * * * .Rows(i).Delete
* * * * * * End If
* * * * Next i
* * End With
--
__________________________________
HTH
Bob
"scaredycat" wrote in message
...
can you help me
i'm trying to create a macro that will loop through all the data in a user
specified column/row and return on a new sheet all non-blank data from
that
selected colum or row with the relevant row/column headers as appear on
original sheet.
I'm a bit new to this sorry!- Hide quoted text -
- Show quoted text -
|