Finding Bottom of Sheet
 

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.

Try

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

"LizzyBorden1369" wrote:

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.

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

On Fri, 1 Jul 2005 06:26:03 -0700, LizzyBorden1369
wrote:

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.