Key in button not work

[capcomdevil]

im try to insert vba button with functioning code. but im failed. button dont act like they way in the pictures. code was seem to be insert at bottom of my total sum and add1 and add2 value seem to be same. what am i missing with the vba code

iCvrg6J.png

Sub AddText2()
Dim Lrow As Single

With Worksheets("Sheet2")
Lrow = .Range("F" & Rows.Count).End(xlUp).Row + 1
.Range("F" & Lrow & ":G" & Lrow) = .Range("D2:D4").Value
.Range("D2:D4").Value = ""
End With

End Sub

[jindon]

Perhaps

Please Login or Register  to view this content.

[capcomdevil]

Perhaps

Please Login or Register  to view this content.

it worked. thanks lot Jindon

[jindon]

You are welcome.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.