Relative Sheet Reference

Hello,

I am trying to write a macro (new to VB) that shifts contents in a branch layout to be aligned on the left, column A. I have this code that works fine:
Sub ShiftValuesLeft()
Dim iRows As Integer, iCols As Integer, x As Integer, y As Integer, icount As Integer
Dim MyArray(), rTop As Range
iRows = Range("Top").CurrentRegion.Rows.Count
iCols = Range("Top").CurrentRegion.Columns.Count - 1
Set rTop = Range("Top")
ReDim MyArray(iRows, iCols)


For x = 1 To iRows
For y = 1 To iCols
If rTop.Cells(x, y) <> "" Then
MyArray(x, icount) = rTop.Cells(x, y)
icount = icount + 1
End If

Next y
icount = 0

Next x

For x = 1 To iRows
For y = 1 To iCols
If MyArray(x, icount) <> "" Then
Range("Output").Cells(x, y) = MyArray(x, icount)
icount = icount + 1
End If
Next y
icount = 0
Next x

End Sub

However, the workbook I am using has dozens of tabs and I want my macro to assign the same cell in each sheet (A5) as "Top", and a Go To Last Cell function (separated by a blank row and also moved over to column A), to name the "Output". Each sheet has a different number of rows and I want the macro to assign these names in reference to the active sheet, not the original sheet I put labels on. If someone can modify my existing code to fix all these issues I would be very grateful!