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!