VBA のコードについて
すみません、以前にも同じようなご質問をさせて頂いたのですが、どうしても以下のマクロがうまく機能しません。
新しいブックは作成されるのですが、End If以降の検索結果が反映（コビー）されません。
コードに問題があるかアドバイス頂けますと幸いです。
どうぞ宜しくお願いいたします。
Sub sort()
Dim i As Long
Dim grp As String
Dim newBookName As String
Dim newBookPath As String
Dim newBook As Workbook
For i = 2 To 4
LOB = Workbooks("test").Worksheets("grpリスト").Cells(i, 2)
newBookName = Workbooks("test").Worksheets("grpリスト").Cells(i, 2) & ".xlsx"
newBookPath = ThisWorkbook.Path & "\" & newBookName
'指定したパスにファイルが作成済でないかを確認。
If Dir(newBookPath) = "" Then
'新しいファイルを作成
Set newBook = Workbooks.Add
'新しいファイルをVBAを実行したファイルと同じフォルダ保存
newBook.SaveAs newBookPath
Else
'既に同名のファイルが存在する場合はメッセージを表示
MsgBox "既に" & newBookName & "というファイルは存在します。"
End If
With Workbooks("test").Worksheets("マスタ0701").AutoFilterMode = False
With .Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp))
.AutoFilter Field:=13, Criteria1:=grp
'.CurrentRegion.Select
Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)).SpecialCells(xlVisible).copy Workbooks(grp).Worksheets("Sheet1").Range("A1")
'.AutoFilter
End With
End With
Next i
End Sub
