Adding columns using VBA

[rexel12]

I have a spreadsheet which imports a CSV file. I have setup a macro to import and format the CSV correctly. However what I need is to be able to find the first blank cell at the bottom of each column of data and total the entire column. If I use the macro recorder it gives me a fixed range i.e A2:A256. Unfortunately the CSV file differs in size every month and the VBA code should cope with this.

TIA

Rex.

[Anne Troy]

Just a little FYI that people don't seem to think of: put your totals at the top.

[Juan Pablo González]

This should get you started.

Sub MySum()
Range("A65536").End(xlUp).Offset(1).FormulaR1C1 = "SUM(R2C:R[-1]C)"
End Sub

[Juan Pablo González]

On 2002-02-20 07:17, Juan Pablo G. wrote:
This should get you started.

Sub MySum()
Range("A65536").End(xlUp).Offset(1).FormulaR1C1 = "SUM(R2C:R[-1]C)"
End Sub

This should read

Sub MySum()
Range("A65536").End(xlUp).Offset(1).FormulaR1C1 = "=SUM(R2C:R[-1]C)"
End Sub

PLEASE, NO PRIVATE MESSAGES, ANSWER TO THE FORUM.

_________________
Regards,

Juan Pablo G.
MrExcel.com Consulting

[ This Message was edited by: Juan Pablo G. on 2002-02-20 08:57 ]