Saving a range for later reference

[Pistolade]

I need a macro that will save a range as "VariablesFor" & Job, where Jo
= Range("F1").Value, as well as save Job xlDown column A. The range
need to be on the same page, but need to not replace any pre existin
data. What I have so far is:
Sub SavingSet()
'
' SavingSet Macro
'
NewJob = Range("G1").Value
'
Range("A2:O33").Select
Selection.Copy
Sheets("VariablesQS").Select
ActiveWindow.SmallScroll Down:=12
Range("B1").End(xlDown).Offset(-1).Select
ActiveSheet.Paste
Selection.Names.Add Name:="VariablesFor" & NewJob
Sheets("Variables").Select
Range("G1").Select
Selection.Copy
Sheets("VariablesQS").Select
Range("A1").End(xlDown).Select
ActiveSheet.Paste
End Sub

However, The First .end(xlDown) doesn't bring it down nearly far enough
or it will just bring it down to row one million something. Then i
stops at the selection.Names.Add line, I don't know how to Tell it t
select the cells it pasted any other way, since the fresh paste wil
still be a selection, I would like to do it by referring to tha
selection.

Any help would be great.
Thanks,
-Pistolade