VB Code - Find last row of data in a column

[Rahiem]

I am trying to setup a macro that formats my invoices sheets. The macro that I recorded is running okay but the print range is too large for the invoice and I don't want it set at one print range. I want excel to find the last row and column of data per set print range. In this case I have one invoice but problaly need two print ranges or ranges with variables setup to read last row of data from rows A1 to K1 End.xldown. The invoice row range varies from A1 to A150 but I want the print range to fit exactly the same size as my invoice. Here is what I have recorded please help me finx this. Thanks RG,

Range("B7").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlDown).Select
ActiveWindow.SmallScroll Down:=18
ActiveWindow.SmallScroll Down:=5
ActiveSheet.PageSetup.PrintArea = "A1:K100"
Range("B65536").End(xlUp).Select
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "A1:K100"
ActiveWindow.SmallScroll Down:=-55
End Sub

 

[Rahiem]

The Sub AddTotals() is highted in yellow. What do you make of this?

 

[VoG]

Before or after running the code?

 

[Rahiem]

After

 

[VoG]

Did the code work? If you got an error message click the Debug button - which line is highlighted?

 

[Rahiem]

Sub AddTotals()

 

[VoG]

The code works for me, there are no errors and nothing is highlighted in yellow.

Make sure that you copy and paste exactly

Sub AddTotals()
Dim LR As Long
LR = Range("H" & Rows.Count).End(xlUp).Row
With Range("A" & LR + 1)
    .Value = "Totals:"
    .Font.Bold = True
End With
With Range("H" & LR + 1)
    .Formula = "=SUM(H2:H" & LR & ")"
    .Font.Bold = True
    .NumberFormat = "0.00"
End With
End Sub

 

[Rahiem]

just added new module and pasted your formula

 

[VoG]

And did it work?

 

[Rahiem]

Kinda the totals ended

 

[Rahiem]

It works but there is some small problem, I need the data to be sorted by column H and range G1:H End.xldown before totals and format number. This macro is suppose to be designed to format a CSV file. Any ideas.