Simple Problems

[Jim Berglund]

I am trying to make it easier for other people in my company to combine and
modify data from two tables of telephone lists that they download from the
Internet onto their desktops. The files are named 403.csv and 587.csv. Each
contains two columns of numbers - and area code and a 7-digit telephone
number. I want to combine the two files into a single file and then combine
and reformat the numbers into a xxx-xxx-xxxxx format.

It should be easy but I havn't done any VB programming for quite a while and
forget how to do some simple things...

1. I am trying to paste a set of numbers to the bottom of a 2-column list. I
have found the last cell with
ActiveCell.SpecialCells(xlLastCell).Select, but I want to paste the new
information on the following line
in the first column.

How do I do this, please?

2. How do I fill a formula from cell C1 down to the bottom of the created
list?

Thanks,

Jim Berglund

 

[L. Howard Kittle]

Hi Jim,

Maybe something like:

Activecell.Resize(25, 2).Copy Sheets("sheet2"). _
Range("A1000").End(xlUp).Offset(1, 0)

Where activecell is the upper left cell of the two columns and Resize will
include 25 rows down from there and 1 column added to the right of the
activecell column, copies that and goes to A1000 up until it hits an entry,
drops one cell down and pastes.

HTH
Regards,
Howard