Hi All,
i am not the best at this coding but i do try, I have been playing around with the folllowing code which works but not the way i wish, it pastes the data into the top of the workbook instead of the bottom. Is there a way of allowing the user to click on the button and then paste the required range into the end of the cells to add onto the cells above it?
Private Sub CommandButton21_Click()
'Change your password here
Sheets("2 .Pricing Sheet").Unprotect "Password"
Dim Rng As Long, i As Long
Rng = Application.InputBox("Enter number of rows required.", Type:=1)
For i = 1 To Rng
'Change source row and sheet name
Range("a205").EntireRow.Copy
Sheets("2 .Pricing Sheet_In Term").Range("a65536").End(xlUp).Offset(1).Insert Shift:=xlDown
Next i
Application.CutCopyMode = False
'Change your password here
Sheets("2 .Pricing Sheet").Protect "Password"
End Sub
i am not the best at this coding but i do try, I have been playing around with the folllowing code which works but not the way i wish, it pastes the data into the top of the workbook instead of the bottom. Is there a way of allowing the user to click on the button and then paste the required range into the end of the cells to add onto the cells above it?
Private Sub CommandButton21_Click()
'Change your password here
Sheets("2 .Pricing Sheet").Unprotect "Password"
Dim Rng As Long, i As Long
Rng = Application.InputBox("Enter number of rows required.", Type:=1)
For i = 1 To Rng
'Change source row and sheet name
Range("a205").EntireRow.Copy
Sheets("2 .Pricing Sheet_In Term").Range("a65536").End(xlUp).Offset(1).Insert Shift:=xlDown
Next i
Application.CutCopyMode = False
'Change your password here
Sheets("2 .Pricing Sheet").Protect "Password"
End Sub
