Finding Bottom of Sheet

[Guest]

Hi all,

I am trying to automatically copy a Range and paste this Range at the
Bottom in the destination. How do I find the bottom (after the last pasted
Range)? The Range size is a known constant. Within the Range, Columns and
Data are filled with combinations of Blanks, Text, and Numbers. I'm sure
this is an easy problem, but I new to VBA and just learning all the
methods/functions available. Thanks for the help.

 

[Guest]

Try

Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(1, 0).Select

 

[Gord Dibben]

Find bottom + 1 of column A.

Sub findbottom()
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
End Sub

The idea behind the code is to go down to the bottom of the column then work
up until you reach the last filled cell, then drop down to next cell, which is
empty.


Gord Dibben Excel MVP