Snasui Excel Forum

Code: Select all

Sub RecordBill1()
Dim rs As Range, rt As Range
Dim i As Integer

Worksheets("ãºÃѺÊÔ¹¤éÒà¢éÒ").Range("G9") _
    = Application.Max(Worksheets("Import") _
        .Range("J:J")) + 1

With Worksheets("Template")
 i = Application.CountIf( _
        .Range("J2:J16"), ">0")
    Set rs = .Range("A2:J16" & 2 + i)
End With
    Set rt = Worksheets("Import") _
        .Range("B65536").End(xlUp).Offset(1, 0)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
MsgBox "Finish"
End Sub

Code: Select all

'Other code
With Worksheets("Template")
    i = Application.CountIf( _
            .Range("F2:F16"), ">0")
    Set rs = .Range("A2:J" & 1 + i)
End With
'Other code