есть следующий макрос, который копирует нужные строки в другой файл

Option Explicit
Sub test()
Dim wb As Workbook
Dim obr As Boolean ' is open "обработка макросом.xlsx"
Dim ObrMa As Workbook ' будет обработка макросом.xlsx Workbook
Dim iLastRow As Long
Dim Target_ As Worksheet, sh As Worksheet
Dim i As Integer

Set sh = ActiveSheet

For Each wb In Workbooks
If wb.Name = "ВО_Управляющим.xlsx" Then obr = True: Set ObrMa = wb: Exit For
Next

If obr = False Then Set ObrMa = Workbooks.Open(ThisWorkbook.Path & "\" & "ВО_Управляющим.xlsx", ReadOnly:=False)

Set Target_ = ObrMa.Sheets(1)
iLastRow = Target_.Cells(Target_.Rows.Count, 1).End(xlUp).Row + 1

For i = 1 To 15000
If sh.Cells(i, 4).Text = 0 Then
sh.Rows(i).Copy Target_.Cells(iLastRow, 1)
iLastRow = Target_.Cells(Target_.Rows.Count, 1).End(xlUp).Row + 1
End If
Next i
End Sub

как сделать чтобы данные копировались на разные листы в зависимости от условий, ну например

For i = 1 To 15000
If sh.Cells(i, 1).Text = "A" Then лист1
else
if sh.Cells(i, 1).Text = "Б" then лист 2
else
if sh.Cells(i, 1).Text = "Б" then лист 3
и т.д.
Next i

только вот где это прописать, пыталась по разному но безрезультатно, помогите...