Any help please appreciated..

It seems I need to hit the command button twice in order for the code ito do
the rezisng of the range properly. (60 rows and variable number of
columns).If i hit the button only once it resets the range to something
totally different. What is wrong???


Private Sub AddParameters_Click()
Dim i As Integer
Dim EngineRange As Range
Dim Col As Integer
Dim NewEng_Range As Range


Set EngineRange = Range("Eng_Range")
i = 60
Col = 1
Do
Col = Col + 1
EngineRange.Resize(i, Col - 1).Name = "Eng_Range"

Loop Until IsEmpty(EngineRange(Col))

EngineRange.Resize(i, Col - 1).Name = "NewEng_Range"


End Sub