Hugo acho que o que está faltando ai são as aspas ""

ActiveSheet.Move Before:=Sheets(MAT.REF.2)
para

ActiveSheet.Move Before:=Sheets("MAT.REF.2")

Faz um teste

Galera,
consegui fazer a macro só q a planilha é sempre renomeada ai vi que precisaria usar um loop, so que nao estou conseguindo colocar esse loop e quando vou depurar da a mensagem de "LOOP sem DO", o que estou fazendo de errado???

organizararquivo Macro
'
'
Do Until ActiveCell.Value = "LOTE::"
ActiveWindow.ScrollWorkbookTabs Sheets:=6
Sheets(1).Select
Range("A1").Select
If ActiveCell.Value = "Loja" Then
ActiveSheet.Move Before:=Sheets("MAT.REF 2")
Else
If ActiveCell.Value = "RESUMO DE ESTRUTURA E HH" Then
ActiveSheet.Move Before:=Sheets("RES REF 2")
Else
If ActiveCell.Value = "x" Then
ActiveSheet.Move Before:=Sheets("ESTRUT REF 2")
Else
If ActiveCell.Value = "LOTE:" Then
ActiveSheet.Move Before:=Sheets("LANC REF 2")
Else
If ActiveCell.Value = "LOTE::" Then
Sheets("RES DE ESTRUT E HH TOTAL").Select
Range("K249").Select
Else
Loop
End If
End If
End If
End If
End If
End Sub

Mas uma vez valeu pela ajuda!!!