Copy from one worksheet to another

P

Pete

I would like to be able to copy a number of different cells in a specefic row
from one worksheet to another (same document).

The criteria would be similar to the following: if A1 has a value and A2
does not have a value, copy cells A1, A3, A4, A5 from Worksheet 1 into the
next avaliable row in Worksheet 2.

Does that make any sense? Help would be much appreciated.
 
T

tina

Hi Pete
I can think of a number of ways could you sort column so blank cells are at
bottom then copy or if not too many cell select each cell while holding down
control button and copy or write macro like following
Sub Macro1()
Sheets("Sheet2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Sheets("Sheet1").Select
For Each CELL In Range("A:A")
If Not CELL = ISBLANK Then
CELL.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
Else
End If
Next CELL
End Sub
Hope one of these helps
Tina
 
Top