Excel Forum

Code: Select all

Sub Button3_Click()
Dim Credit As Integer
Dim Credit1 As Integer
Dim Lrow1 As Integer

Lrow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

Credit = Cells("B" & Lrow)
Credit1 = Cells("C" & Lrow)

Cells("E5") = Credit + Credit1

MsgBox Lrow
End Sub

Code: Select all

Sub Button3_Click()
    Dim Credit As Integer
    Dim Credit1 As Integer
    Dim Lrow As Integer
    
    Lrow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
    
    Credit = Cells(Lrow, "B")
    Credit1 = Cells(Lrow, "C")
    
    Range("E5") = Credit + Credit1
    
    MsgBox Lrow
End Sub