[vb] - Make this shorter?

[immoral giant]

Can i make this shorter?

Private Sub OK_Click()
Sheets("Details").Activate
If IsEmpty(Range("B2")) Then
Row = 2
Else
Row = Range("B1").End(xlDown).Row + 1
End If
Cells(Row, 1) = txtFor.Text

If IsEmpty(Range("C2")) Then
Row = 2
Else
Row = Range("C1").End(xlDown).Row + 1
End If
Cells(Row, 2) = txtSur.Text

If IsEmpty(Range("D2")) Then
Row = 2
Else
Row = Range("D1").End(xlDown).Row + 1
End If
Cells(Row, 3) = txtAge.Value

If IsEmpty(Range("E2")) Then
Row = 2
Else
Row = Range("E1").End(xlDown).Row + 1
End If
Cells(Row, 4) = txtMob.Value

If IsEmpty(Range("F2")) Then
Row = 2
Else
Row = Range("F1").End(xlDown).Row + 1
End If
Cells(Row, 5) = txtHom.Value


Unload Me

End Sub

'new sub

Private Sub txtAge_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If

End Sub

'new sub

Private Sub txtMob_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If

End Sub

'new sub

Private Sub txtHom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If

End Sub

'new sub

Private Sub txtSur_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii <> 8 And KeyAscii < 65 Or KeyAscii > 90 Then
KeyAscii = 0
End If

End Sub

'new sub

Private Sub txtFor_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii <> 8 And KeyAscii < 65 Or KeyAscii > 90 Then
KeyAscii = 0
End If

End Sub

[CornedBee]

You can place the KeyAscii test in a separate function and just call this function.
Saves you two lines per on_key function.

You can also make the main part shorter, but at a rather heavy speed impact, and I don't think it's worth it unless it's likey that more columns get added.