Sheets("BASE").[A1].CurrentRegion.Offset(0, 0).Clear
For Each s In Array("RF", "RN")
Sheets(s).[A1].CurrentRegion.Offset(0, 0).Copy
Sheets("BASE").[A65000].End(xlUp).CurrentRegion.Offset(x, 0).PasteSpecial , Paste:=xlPasteValues
x = Sheets("BASE").[A65000].End(xlUp).Row
Next s