Hi CJ-22, try this 
Private Sub CommandButton1_Click()
    
    Dim ws As Worksheet
    Dim rng As Range
    Dim lblStr As String
    
    lblStr = Me.Label1.Caption
    Set ws = Worksheets("Sheet 1")
    Set rng = ws.Range("J" & ws.Cells(ws.Rows.Count, 10).End(xlUp).Offset(1, 0).Row)
    With rng
        .ClearFormats
        .Value = Left(lblStr, 2)
        lblStr = Replace(lblStr, Left(lblStr, 3), "")
        .Offset(0, 1).Value = Left(lblStr, 2)
        lblStr = Replace(lblStr, Left(lblStr, 3), "")
        .Offset(0, 2).Value = lblStr
        .Borders.LineStyle = xlContinuous
    End With

End Sub