This will do it, then:
Option Explicit
Sub RunCalculator()
Dim LastRw As Long, Rw As Long
Dim BDVC As Worksheet, GLR As Worksheet
Set GLR = Sheets("Gas Loss Report")
Set BDVC = Sheets("Blow Down Volume Calculator")
LastRw = GLR.Range("V" & Rows.Count).End(xlUp).Row
LastRw = Application.WorksheetFunction.Max(LastRw, _
GLR.Range("W" & Rows.Count).End(xlUp).Row)
For Rw = 3 To LastRw
BDVC.Range("D8").Value = GLR.Range("V" & Rw).Value
GLR.Range("X" & Rw).Value = BDVC.Range("M26").Value
BDVC.Range("D8").Value = GLR.Range("W" & Rw).Value
GLR.Range("Y" & Rw).Value = BDVC.Range("L27").Value
Next Rw
End Sub
Bookmarks