Offset Challenge

[kelly mort]

I am having issues getting a line after the loop that will offset 16, then look for the maximum value in that column and add 1 to it. I have been trying since and the best result was to get to that column but what it placed there was not what I needed.

Please help:

With Sheet1
Set Drng = .Range  ("A7")
Set lrRng = .Cells  (.Rows.Count, Drng.Column).End (xlUp).Offset (1, 0)

lrRng.Value = Application.Max (Range(Drng, lrRng.Offset(-1, 0))) + 1

For i = 1 To 14
       lrRng.Offset(0, i ).Value = Me.Controls("reg" & i + 1).Value 
Next i 
End With