Find Empty Cell

  • Thread starter Thread starter Wally Steadman
  • Start date Start date
W

Wally Steadman

I have a work sheet where I am copying multiple worksheets
to, I would like to programatically do this, but unsure of
how to have it look down Column A until it gets to the
first Empty Cell and then paste. Was looking at the
IsEmpty function but not sure that applies. I also would
like to know how I can get the first empty cell in a
column. A bit lost on this and I am sure it is very
simple. something like Sheets("Sheet1").Cells(isempty)

That is my wild guess. Any help would be appreciated.

Wally Steadman
 
set rng = worksheets("Sheet1").cells(rows.count,1).End(xlup)

finds the last filled cell, so you can offset by 1

copy something Destination:=rng.offset(1,0)
 
Tom,
When I put the following code --> set rng = worksheets
("Sheet1").cells(rows.count,1).End(xlup)
and let it run with a break in it so I could see values,
the rows.count value was 65536 and I guess I was confused
as to the last destination line you added. Could you
possibly show an example using the following:

Sheet 1 has the following:

Column A only

1 A
2 B
3 C


Sheet2 as the following:

Column A only

1 Red
2 Green
3 Blue

So after running the code, it would copy the cells from
Column A and paste them below the 3 Blue in sheet2, so it
would look like:

1 Red
2 Green
3 Blue
4 A
5 B
6 C

I hope I was clear enough and really appreciate all the
help you have given over the past few days. I am serving
in Iraq and trying to work some tracking stuff that takes
hours right now and get it down to a few minute process
and with all the list help I am getting there slowly but
surely. So thanks again

Wally Steadman
 
Dim rng as Range
With Worksheets("sheet1")
set rng = .Range(.Cells(1,1),.Cells(rows.count,1).end(xlup))
End with

with Worksheets("Sheet2")
rng.copy Destination:= _
.cells(rows.count,1).End(xlup).Offset(1,0)
End With
 
Back
Top