Hi, i have the following
Sub InsertNewBill_Click()
Dim rngCopy As Range
Dim rngPaste As Range
Dim clearCell As Range
If i < 31 Then
i = 31
Cells(30, 1) = i
i = Cells(30, 1) + 1
Cells(30, 1) = i
Else
i = Cells(30, 1) + 1
Cells(30, 1) = i
End If
ActiveSheet.Range("A" & i &...