how to fixed this

Sub SaveOrder()
Dim Cnt As Integer
Range("'Data'!A2").Offset(, Range("G1") * 2 - 1) = Range("G1")
For Cnt = 3 To 18
Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2 - 1) = Range("D" & Cnt)
Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2) = Range("H" & Cnt)
Next
End Sub

whne there is nothing is G1 i got a run tim,e error, how can i make it so if there is nothing in G1 a message will come up and ask u to put a number in G1?

[dk]

You could try this. It checks that the value in G1 is not blank and that it's numeric.

Sub SaveOrder()
Dim Cnt As Integer

If (Range("G1") > 0) And IsNumeric(Range("G1")) Then
    Range("'Data'!A2").Offset(, Range("G1") * 2 - 1) = Range("G1")
    For Cnt = 3 To 18
        Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2 - 1) = Range("D" & Cnt)
        Range("'Data'!A" & Cnt).Offset(, Range("G1") * 2) = Range("H" & Cnt)
    Next
Else
    MsgBox "G1 must contain a number"
End If
End Sub

HTH,
D