Loop to divide last cell in two different columns

[I3atnumb3rs]

Hello,

I'm trying to loop through a workbook and calculate the percentage between two values that are sums of their respective columns in each worksheet. I want to divide column Q last row value by R's last row value as well as T last row divided by R last row. My code is working, but the only value being polulated is the divided value in the last worksheet in the workbook. So the same values are being populated in each sheet, except I want each to be calculated individually.

http://prntscr.com/p3uzwk
http://prntscr.com/p3uzih

 

[I3atnumb3rs]

I forgot to attach the code! but I figured it out.

Sub WRKShtLoo1pFormat()

'Loops through every worksheet

Dim ws As Worksheet


Dim lastRowInColQ As Long
Dim lastRowInColR As Long
Dim lastRowInColT As Long

Dim totPointsRowR As Long
Dim totPointsRowT As Long
Dim totPointsRowQ As Long

For Each ws In Worksheets




With ws.Range("A" & Rows.Count).End(xlUp).Offset(0)

.Offset(5, 10).Value = "GENERAL IPR PERCENTAGE"

If ws.Range("Q" & Rows.Count).End(xlUp).Value <> 0 Then
.Offset(5, 11).Value = ws.Range("Q" & Rows.Count).End(xlUp).Value / ws.Range("R" & Rows.Count).End(xlUp).Value * 100

.Offset(7, 10).Value = "GENERAL IDR PERCENTAGE"

If ws.Range("T" & Rows.Count).End(xlUp).Value <> 0 Then
.Offset(7, 11) = ws.Range("T" & Rows.Count).End(xlUp).Value / ws.Range("R" & Rows.Count).End(xlUp).Value * 100

End If
End If


End With

Next ws





End Sub