I'm tring to insert a set of strings, and for some reason its not going to the next open row, its just inserting them over the last record. Can someone please look at the code and tell me where I'm wrong?
Code:
Private Sub Insert_Payment_Click()Dim Payment As String, PaymentAddress As String
Worksheets("Payments").Select
Payment = Range("E4")
PaymentAddress = Range("B4")
Worksheets("RentalDates").Select
Worksheets("RentalDates").Range("I1").Select
If Worksheets("RentalDates").Range("I1").Offset("1,0") <> "" Then
Worksheets("RentalDates").Range("I1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell = Payment
ActiveCell.Offset(0, -2).Select
ActiveCell = PaymentAddress
ActiveCell.Offset(0, 1).Select
ActiveCell = Date
Worksheets("Payments").Select
Range("B4").Select
ActiveCell.ClearContents
ActiveCell.Offset(0, 3).Select
ActiveCell.ClearContents
End Sub