Помогите пожалуйста ! На Лист1 находятся данные:

1 2 3 4
з\ч 43,0 мат-лы 20.0
з\ч 15,0
з\ч 1,0 мат-лы 33.0
з\ч 5,0 мат-лы 2.0
мо
мо
мат-лы 12.0
з\ч 37.9

в 1 и 3 столбцах название
во 2 и 4 столбцах кол-во.
Мне надо выбрать из таблицы данные по названиям и записать их в листы..
Лист з\ч(2) Лист мат-лы(3) Лист МО(4)
з\ч 43,0 мат-лы 20,0
з\ч 15.0 мат-лы 33,0
з\ч 1,0 мат-лы 2,0
з\ч 5,0 мат-лы 12,0
з\ч 37,9
Если есть только з\ч или только мат-лы, все работает, а если есть в строке и з\ч и мат-лы то не работает. Что я делаю не так?
Const FirstRow = 1
Private Sub CommandButton1_Click()
NumStr = 1
For i = 1 To 100
Worksheets(1).Activate
If (Worksheets(1).Cells(i + FirstRow - 1, 1) = "з\ч" And Worksheets(1).Cells(i + FirstRow - 1, 3) = "мат-лы" And Worksheets(1).Cells(i + FirstRow - 1, 2 = " " And Worksheets(1).Cells(i + FirstRow - 1, 4) = " ") Then
Worksheets(2).Cells(i + FirstRow - 1, 1) = Worksheets(1).Cells(i + FirstRow - 1, 1)
Worksheets(2).Cells(i + FirstRow - 1, 2 = Worksheets(1).Cells(i + FirstRow - 1, 2)
Worksheets(3).Cells(i + FirstRow - 1, 1) = Worksheets(1).Cells(i + FirstRow - 1, 1)
Worksheets(3).Cells(i + FirstRow - 1, 2) = Worksheets(1).Cells(i + FirstRow - 1, 2)
End If
NumStr = NumStr + 1
Next
End Sub