Salvar con macro

Sub GuardarFactura()
Dim ActDIR, newDir, newFile As String
Sheets("Factura").Select
Sheets("Factura").Copy
ActDIR = CurDir
newDir = "C:\Facturas Lorca\Facturas"
newFile = Range("BI1").Value & ".xls"
If newFile <> "" Then
If Right(newDir, 1) = "\" Then
newFile = newDir + newFile
Else
newFile = newDir + "\" + newFile
End If
ActiveWorkbook.SaveAs Filename:=newFile
MsgBox "GUARDADO como " & newFile
Else
MsgBox "Este archivo NO fue guardado"
End If
ActiveWorkbook.Close
End Sub
Con esto te guardara un archivo con el nombre que se encuentra en BI1 en el directorio C:\Facturas Lorca\Facturas con el contenido de la hoja Facturas.
El directorio Facturas Lorca\Facturas debe existir para que esto funcione. Cualquier duda aquí me tienes, sino ya puedes finalizar la pregunta.