Copy active cell to first empty cell in specific column in another sheet

Hi, I'm looking for a way to copy the current active cell to the first empty cell in Colum G of another sheet.

I am part of the way with the following code but cannot seem to finish it so that works the way I want

Sub Button6_Click()
Dim ws1 As Worksheet, ws2 As Worksheet
    Dim DestRow As Long
    Set ws1 = Sheets("Index")
    Set ws2 = Sheets("Sheet2")
    DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ws1.Range("A16").Copy ws2.Range("G" & DestRow)
End Sub

This copies A16 and I need to copy the current active cell instead, and currently pastes to G3 and I need it to paste to the first empy cell in column G

Any help would be really appreciated, Mike