Command Button that transposes selections from Entry sheet to Data Sheet

[K_N]

New to VBA. I have tried recording and tweaking this code but am starting to get diminishing returns on effort. The goal for this command button is to simply take data that is input into one sheet and put them in the very next blank row in another.


Code:

Private Sub btnsubmit_Click()

    Sheets("Entry").Select
    Range("C4:C8").Select
    Selection.Copy
    Sheets("Sheet3").Select
    NextRow = Range("B" & Rows.Count).End(xlUp).Row + 1
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("Entry").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

I imagine the main source of the problem starts at the Code line "NextRow" but do not have the experience or knowledge to fix it. Any guidance would be much appreciated.