Paste to a new sheet, empty row

Hi all,

I have spend last 3 days trying to figure out how to do the following:

I want to copy data (one row) from SheetA to a SheetB to first next empty row, so it will continue making a list, and then delete the data from that row.

This is what i curently have - i just want to add something that will look at "Data Colection" cheet, see which one is the first empty row and copy the data to it. (Everything works fine, i just need that extra piece of code)

 Range("B4:K4").Select
    Selection.Copy
    Sheets("Data Colection").Select
    Range("A2").Select
    Selection.PasteSpecial , Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("DataEntry").Select
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C4").Select
    Selection.ClearContents
    Range("D4").Select
    Selection.ClearContents
    Range("G4").Select
    Selection.ClearContents
    Range("I4").Select
    Selection.ClearContents
    Range("J4").Select
    Selection.ClearContents
    Range("K4").Select
    Selection.ClearContents

I am in the process of still learning the VBA code, so please be patient with me.

Thank you!

Try

Sub AAA()
Sheets("Data Colection").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 10).Value = Sheets("DataEntry").Range("B4:K4").Value
Sheets("DataEntry").Range("B4:K4").ClearContents
End Sub

@taregt;

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(I have changed this for you this time. Please read our rules and follow them in the future.)

Oops, sorry Alan I didn't think when responding to the OP. My bad.

@WasWodge.

No worries.