Loop through columns to copy to a worksheet

Hi all,

After scowering the forums I cannot find anything that works and I was hoping there is a siple loop or range line I can add to get this done. I would like to copy cells from one worksheet to another. This currently copies 2 cells from one worksheet to another but I would like it to do all rows down to 150 when I hit the update button. Here is what I have so far:

Private Sub CommandButton1_Click()

Dim SSN As String, ClaimentStatedEarnings As Integer
    Worksheets("Data").Select
    SSN = Range("A3")
    ClaimentStatedEarnings = Range("E3")
    Worksheets("Template").Select
    Worksheets("Template").Range("A1").Select
    If Worksheets("Template").Range("A1").Offset(1, 0) <> "" Then
    Worksheets("Template").Range("A1").End(xlDown).Select
    End If
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = SSN
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = ClaimentStatedEarnings
    Worksheets("Data").Select
    Worksheets("Data").Range("A3").Select
    
    
    
    
End Sub