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
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![]()
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
Any help would be really appreciated, Mike
Bookmarks