Making ranges in a macro dynamic?

[sadia1991]

Hello!

This is the macro I have recorded:

Range("A1:G1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1:G212").Select
    Selection.Copy
    Windows("arrangement.xlsx").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Range("L1:L55").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("MINING.xlsx").Activate
    Range("RA73:RA127").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("!2014-05-15 experiment").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
End Sub

How do I make the ranges in red (above) dynamic?
for the line Range("A1:G212").Select I was trying to select a block of cells (which I can do by pressing ctrl + A and then shift+down arrow OR ctrl+shift+down 12 times then shift+up arrow once)

for the line Range("RA73:RA127").Select I was trying to select a block of cells adjacent to the cell already active in the sheet (the idea is that I would paste a block of cells then repeat the macro and the next block of cells would get pasted in the next column etc.)


Thank you for taking the time to read and respond to my question! Any help is greatly appreciated!

 

[sadia1991]

Thank you!

 

[mrmmickle1]

Oh your very welcome! Glad to help out.