Find Last row and fill the cells

Hi,

I need to find the last used row in excel and fill the next row as per conditons.

The conditions are prepared, but please help me in code to find the last used and implement the conditions from the next cell.

I am also attaching the sheet.


here is piece of conditions which should be filled every time when last row is found.

Myfile = "C:\Documents and Settings\sw47604\Desktop\dq\FW-22\Block10n11.xls"
Set objWB = objExcel.Workbooks.Open(Myfile)

Selection.AutoFilter Field:=13, Criteria1:="=*3300*", Operator:=xlAnd
Selection.AutoFilter Field:=12, Criteria1:=">50", Operator:=xlAnd
objWS.Cells(3, 11) = WorksheetFunction.Subtotal(3, Range("A2:A700"))

Selection.AutoFilter Field:=13, Criteria1:="=*3500*", Operator:=xlAnd
Selection.AutoFilter Field:=12, Criteria1:=">50", Operator:=xlAnd
objWS.Cells(3, 12) = WorksheetFunction.Subtotal(3, Range("A2:A700"))

Selection.AutoFilter Field:=13, Criteria1:="MKVI"
Selection.AutoFilter Field:=12, Criteria1:=">50", Operator:=xlAnd
objWS.Cells(3, 13) = WorksheetFunction.Subtotal(3, Range("A2:A700"))

Selection.AutoFilter Field:=13, Criteria1:="="
Selection.AutoFilter Field:=12, Criteria1:=">50", Operator:=xlAnd
objWS.Cells(3, 14) = WorksheetFunction.Subtotal(3, Range("A2:A700"))


Myfile = "C:\Documents and Settings\sw47604\Desktop\dq\FW-22\Block6n7.xls"
Set objWB = objExcel.Workbooks.Open(Myfile)

Selection.AutoFilter Field:=6, Criteria1:="=*3300*", Operator:=xlAnd
Selection.AutoFilter Field:=5, Criteria1:=">50", Operator:=xlAnd
objWS.Cells(3, 16) = WorksheetFunction.Subtotal(3, Range("A2:A700"))

Selection.AutoFilter Field:=6, Criteria1:="=*3500*", Operator:=xlAnd
Selection.AutoFilter Field:=5, Criteria1:=">50", Operator:=xlAnd
objWS.Cells(3, 17) = WorksheetFunction.Subtotal(3, Range("A2:A700"))

Selection.AutoFilter Field:=6, Criteria1:="MKVI", Operator:=xlAnd
Selection.AutoFilter Field:=5, Criteria1:=">50", Operator:=xlAnd
objWS.Cells(3, 18) = WorksheetFunction.Subtotal(3, Range("A2:A700"))

Selection.AutoFilter Field:=6, Criteria1:="=", Operator:=xlAnd
Selection.AutoFilter Field:=5, Criteria1:=">50", Operator:=xlAnd
objWS.Cells(3, 19) = WorksheetFunction.Subtotal(3, Range("A2:A700"))


'Percentage Calculation

objWS.Cells(3, 4) = "=K3/P3*100"
objWS.Cells(3, 5) = "=L3/Q3*100"
objWS.Cells(3, 6) = "=M3/R3*100"
objWS.Cells(3, 7) = "=N3/S3*100"

Thanks in advance.