This line:
Set myRange = Range("B1", Range("B1").End(xlDown))

is refering to the new sheet in the new workbook. range("B1").end(xldown) goes
all the way to B65536. .Offset(1) hurts excel's head--it runs out of rows!

maybe...

Sub Macro1()
'If each column has a heading, change the 1's to 2's
Dim myRange As Range
dim ActSheet as worksheet
dim newSheet as worksheet

with actSheet
Set myRange = .Range("A1", .Range("A1").End(xlDown))
end with
Workbooks.Add
set newwks = activeworkbook.Sheets("Sheet1") '<-- in the new workbook

myRange.Copy _
destination:=newwks.Range("C1")

with actsheet
Set myRange = .Range("B1", .Range("B1").End(xlDown))
end with

myRange.Copy _
destination:=newwks.Range("C65536").End(xlUp).Offs et(1)

End Sub


jbsand1001 wrote:

I need this to look at column "A" Column "B" etc... and copy column "A" just
the data that is in column "A" and paste to Column "C" and do the same for
column "B" . This data will be added and subtracted to daily so it must know
where the last item in column "A" is and add it to column "C" on the new
workbook then copy the data in column "B" and add to the new workbook where
the data from column "A" left off.

Ok... This is what I have come up with.

Sub Macro1()
'If each column has a heading, change the 1's to 2's
Dim myRange As Range
Set myRange = Range("A1", Range("A1").End(xlDown))
Workbooks.Add
Sheets("Sheet1").Activate
myRange.Copy Range("C1")
Set myRange = Range("B1", Range("B1").End(xlDown))
myRange.Copy Range("C65536").End(xlUp).Offset(1)
End Sub

This so far is doing what I need it to do by copying column "A" and opening
a new workbook and adding to colum "C" in this new workbook, and I think it
is trying to copy "B" but I keep receiving the following message "Run-time
error 1004 the information cannot be pasted because the copy and paster area
are not the same size and shape"

I think this is close???

Judd

--

Dave Peterson