VBA Help: Code to transfer data to another sheet into the next available, empty row

[Dclax]

Hello all,

I am a newbie with VBA and new to this forum, so please excuse any poor terminology.
I have created a form that I fill in when working with customers and I have created a VBA which copies the filled in data to another sheet.

The problem I am facing is that my code for pasting into the next empty row / cell of that column doesn't consistently work. It continues to overwrite what was previously copied and pasted.

Here is what I have so far:

Sub CheckBox()
    If (Range("B15").Value = True) Then
        Windows("Customer Database.xlsx").Activate
        Range("F1").End(xlDown).Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "Yes"
        Windows("Client Service Form Template.xlsm").Activate
    Else
        Windows("Customer Database.xlsx").Activate
        Range("F1").End(xlDown).Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "No"
        Windows("Client Service Form Template.xlsm").Activate
  
    End If


    If (Range("D15").Value = True) Then
        Windows("Customer Database.xlsx").Activate
        Range("G1").End(xlDown).Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "Yes"
        Windows("Client Service Form Template.xlsm").Activate
    Else
        Windows("Customer Database.xlsx").Activate
        Range("G1").End(xlDown).Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "No"
        Windows("Client Service Form Template.xlsm").Activate
  
    End If
End Sub

Thanks!

 

[footoo]

Try replacing this :

Range("F1").End(xlDown).Offset(1, 0).Select

With this :

Cells(Rows.Count, "F").End(xlUp).Offset(1, 0).Select

And similarly for column G.

If this does what you want, your macro can probably be reduced to :

Sub CheckBox()
With Workbooks("Customer Database.xlsx")
    .Cells(Rows.Count, "F").End(xlUp)(2) = IIf([B15], "Yes", "No")
    .Cells(Rows.Count, "G").End(xlUp)(2) = IIf([D15], "Yes", "No")
End With
End Sub

 

[Dclax]

Ah, I am so happy! It works! thank you so much!