Einrücken eines Markierten Bereichs

Sub ordnen()
Dim x As Integer
With Tabelle1
For x = 1 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(.Rows(x)) > 0 Then
Do Until .Cells(x, 1)  ""
.Cells(x, 1).Delete Shift:=xlToLeft
Loop
End If
Next x
End With
End Sub

Es soll die Inhalte einer importierten Tabelle die ziemlich durcheinander ist in die erste Spalte einrücken. Klappt bisher auch recht gut, allerdings habe ich noch zwei Fragen dazu:
Ist es möglich dieses Makro so umzsuchreiben, dass es nur auf einen markierten Bereich angewendet wird?
Und wieso kann ich nicht aus einer anderen Mappe daraufzugreifen, selbst wenn die, die das Makro enthällt geöffnet ist?
Gruß