Kinho... em princípio, parece simples, mas qual seria o critério da divisão?

Kinho

Essa me foi passada pelo próprio Edson faz um tempo já, acho que te serve.

Alternativa:

Atenção: os dados de origem estão na Plan1 e a Plan2, que vai receber os dados, deve ser a guia ativa.
Considero a existência de dados na Coluna A da Plan1 para o Loop e, como teste, estou copiando até a Coluna E.

Sub Filtro()

Dim slin As Long
Dim elin As Long

slin = 2
elin = 2

Do While Sheets("Plan1").Cells(slin, 1) <> ""
If Sheets("Plan1").Cells(slin, 3) = "Alagoas" Then
Sheets("Plan1").Range("A" & slin & ":E" & slin).Copy
Sheets("Plan2").Range("A" & elin).Select
Selection.PasteSpecial Paste:=xlPasteValues
slin = slin + 1
elin = elin + 1
Else
slin = slin + 1
End If
Loop

End Sub