Moving Contents Within Cells To Another Place

[WillPeters]

Hello folks,

Based on the attached photo, at a click of a button, I would like to:
1. Copy the contents of A3 to C3
2. Paste in the next available, free cell. In this case, A12:C12
3. Clear contents of A3:C3

I'm struggling with getting the macro to paste at the bottom most, next available free cell.

Thanks in advance for your help!

 

[Joe4]

Assuming you have nothing else further down the page in column A, here is the code you can attach to your button:

Sub MyCopyData()
    Range("A3:C3").Copy Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    Range("A3:C3").ClearContents
End Sub

 

[Joe4]

If you do have other stuff outside of this further down the page in column A, this version should work:

Sub MyCopyData()
    Dim nr As Long
    If Range("A10") = "" Then
        nr = 10
    Else
        nr = Range("A9").End(xlDown).Row + 1
    End If
    Range("A3:C3").Copy Range("A" & nr)
    Range("A3:C3").ClearContents
End Sub

 

[WillPeters]

If you do have other stuff outside of this further down the page in column A, this version should work:

Sub MyCopyData()
    Dim nr As Long
    If Range("A10") = "" Then
        nr = 10
    Else
        nr = Range("A9").End(xlDown).Row + 1
    End If
    Range("A3:C3").Copy Range("A" & nr)
    Range("A3:C3").ClearContents
End Sub

Appreciate you! That's exactly what I needed. Thank you

 

[Joe4]

You are welcome!

BTW, my "nr" variable stands for "next row".
So essentially, I am first calculating the next available row after row 9 and using that row variable in the paste section of the copy command.