Copy function for the button

[ant1271]

Hi,
I am a novice and posting this question after researching the forum. I am writing VB code in excel to copy data from one cell(sheet 1) to another cell(sheet 2) whenever the user click the button. Below is the basic code i have so far

I need the macro to copy it one cell every-time the user clicks the button. with the below code, it goes over all the rows at once.

ex: User 1 clicks on the button, the macro copies A4 to B7. User clicks on the button, now it should copy A5 to B7.



Sub Button5_Click()
'
' Button5_Click Macro
'
' Keyboard Shortcut: Ctrl+n
'
Dim i As Long
i = 4

For i = 4 To 165

Sheets("LDR - Test Cases").Select
Range("A" & i).Select
Selection.Copy
Sheets("LDRetail Script").Select
Range("B7").Select
ActiveSheet.Paste

Next i



End Sub