Paste values into next blank row VBA

Question

I have this code recorded but need it to paste in the next empty row in their respective columns starting from row 4. However I need the macro to only paste up to row 13. I also need these to paste values into the selected range. 

Sub trial_2()

'

    Range("B7").Select

    Selection.Copy

    Range("K4").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("B8").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("L4").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("A11").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("M4").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

Any help appreciated. Thanks!