vba（Excel）把符合调节复制到新工作表中去（很是着急）

Question

工具名       属性1    属性2   属性3
part1 t
part1 t
part3 t
part1 t
part1 t
part1 t
part2 t
part2 t
part2 t
part2 t
part2 t
part3 t
part3 t
part3 t
需求：把具有属性1的工具复制到一个新的工作表中去，其余属性也类似，把具有属性2，3分别也复制到新的工作表中，代码该如何写？我写的代码总是出错？
Worksheets.Select
'新建工作表
Worksheets.Add , Worksheets(2), 1
Worksheets(3).Name = "newworksheet"
    For i = 1 To Range.Cells(B)
         If ActiveSheet.Values = "T" Then
           excelapp.ActiveWorkbook.Sheets("sheet1").Rows("i:i").Copy excelapp.ActiveWorkbook.Sheets("newworksheet").Rows("row")
        End If
    Next i
    MsgBox "复制完毕", vbOKOnly + vbExclamation, "提示"
请高手指正！！！

Answer 1

以下是处理属性1的代码:
Dim i As Integer
Dim j As Integer
j = 1
    For i = 1 To Sheet1.UsedRange.Rows.Count
    'deal colume "B"
    If UCase(Sheet1.Range("B" & CStr(i))) = "T" Then
          Sheet2.Range("B" & CStr(j)) = Sheet1.Range("A" & CStr(i))
          j = j + 1
        End If
    Next i
    MsgBox "B列复制完毕", vbOKOnly + vbExclamation, "提示"其他的列一样处理.