markere alle udfyldte celler og overføre til andet ark

I mit ark INDTASTNING har jeg tastet nogle dat i linjerne 4-200 og i kolonner A:G

Nu vil jeg gerne have overført disse poster til arket POSTER
Der står i forvejen nogle poster i dette ark og de poster jeg skal have overført, skal IKKE overskrive de nuværende poster men indsættes i de første tomme rækker.

Jeg har forsøgt mig udfra en anden kode jeg har fået hjælp til, men det magter jeg ikke.

Dette er min kode....so far...

Sub overførdata3()
    Dim intI As Integer
    Dim intJ As Integer
    intJ = 5
    Do Until (ThisWorkbook.Sheets("indtastning").Cells.Range("C" & intJ) = "")
        intJ = intJ + 2
    Loop

    For intI = 5 To 10000
        If (ThisWorkbook.Sheets("indtastning").Cells.Range("a" & intI)) <> "" Then
            ThisWorkbook.Sheets("indtastning").Cells.Range("A" & intI & ":G" & intI).Copy ThisWorkbook.Sheets("poster").Range("A" & intJ)
            intJ = intJ + 1
        End If
    Next intI
End Sub





Sub overførdata3()
    Dim intI As Integer
    Dim intJ As Integer
    intJ = 5
    Do Until (ThisWorkbook.Sheets("indtastning").Cells.Range("C" & intJ) = "")
        intJ = intJ + 2
    Loop

    For intI = 5 To 10000
        If (ThisWorkbook.Sheets("indtastning").Cells.Range("a" & intI)) <> "" Then
            ThisWorkbook.Sheets("indtastning").Cells.Range("A" & intI & ":G" & intI).Copy ThisWorkbook.Sheets("poster").Range("A" & intJ)
            intJ = intJ + 1
        End If
    Next intI
End Sub