Userform that Start Data Enty At A Particular Range

[simpdogg]

This formula starts me at D2, need it to begin at cell D18

Private Sub CommandButton1_Click()
Dim rngNext As Range

Set rngNext = Sheet1.Range("D" & Rows.Count).End(xlUp).Offset(1)
rngNext.Value = TextBox1.Value

End Sub