Paste selected range offset 1 to right from original selection

Ln19 and Ln20 copys a pre-selected range from SIF_Creator.xlsm.  Ln110 - Ln120 pastes values one cell to the right of the original selection made when copied was made in Ln20.  Is there a way to mark the top position when Ln20 copies the range?  So then at Ln110 I can just go back to that position and paste it where it needs to be?  instead of searching to find a place to paste the results?  

Sub GetPricing() 'Assumes SAP>BEC has an open session
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'check for SAP session open
sessChoice = "QEC"  'variables used by TESTSAP function     'RANDY:  set these to PEC if so desired.
connChoice = "900"
If TestSAP = False Then Exit Sub        'The TESTSAP function will make your connection between VBA and SAP!!!!!!!

    Workbooks.Open Filename:="C:\_SAP\LynxFiles\ZGM_LISTPRICECHECK.xlsx"
    Cells.Select
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    Range("A1").Select
    Windows("SIF_Creator.xlsm").Activate
    Selection.Copy
    Windows("ZGM_LISTPRICECHECK.xlsx").Activate
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("ZGM_LISTPRICECHECK.xlsx").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close
   
    
    Sheets("Example_FileName_Save").Visible = True
    Sheets("Example_FileName_Save").Select
    FolderPath = Cells(3, 1).Value
    Sheets("Example_FileName_Save").Select
    ActiveWindow.SelectedSheets.Visible = False






session.findById("wnd[0]/tbar[0]/okcd").Text = "/nZGM_PRICELISTCHECK"
session.findById("wnd[0]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/ctxtP_IFNAME").Text = FolderPath
session.findById("wnd[0]/usr/ctxtP_DSTCTY").Text = "US"
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/tbar[1]/btn[45]").press
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[4,0]").Select
session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[4,0]").SetFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press

    Sheets("Summary").Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
    ActiveSheet.Paste
    Columns("A:A").Select
    
    Application.WindowState = xlMaximized
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1)), TrailingMinusNumbers:=True
    
    Selection.Delete Shift:=xlToLeft
    Range("1:1,2:2,3:3,4:4").Select
    Range("A4").Activate
    Selection.Delete Shift:=xlUp
    Columns("A:A").EntireColumn.AutoFit
    Columns("A:A").ColumnWidth = 31.44
    Columns("B:B").ColumnWidth = 10.33
    Columns("C:C").ColumnWidth = 10.44
    Columns("A:A").Select
    Application.WindowState = xlMaximized
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("SummaryAppend").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    If ActiveCell = "" Then
        ActiveSheet.Paste
        Columns("A:A").EntireColumn.AutoFit
        Columns("B:B").ColumnWidth = 12.56
        Range("A1").Select
        Sheets("Summary").Select
    Else
        ActiveCell.Offset(1, 0).Select   'select one right check again
        ActiveSheet.Paste
        Columns("A:A").EntireColumn.AutoFit
        Columns("B:B").ColumnWidth = 12.56
        Range("A1").Select
        Sheets("Summary").Select
    End If
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("MasterCopy").Select
    
    Range("D2").Select
    If ActiveCell = "" Then
        ActiveSheet.Paste
    Else
        Selection.End(xlDown).Select
        Selection.End(xlDown).Select
        Selection.End(xlUp).Select
        ActiveCell.Offset(1, 0).Select   'select one right check again
        ActiveSheet.Paste
        Application.CutCopyMode = False
    End If
  
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    ActiveCell.Offset(Selection.Rows.Count, -1).Select 'MOVE TO BOTTOM OF SELECTION AND ONE LEFT
End Sub

Open in new window

RWayneHAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Saqib Husain, SyedEngineerCommented:
Try this

Change line 20 to

set presel=selection
presel.copy

and line 110 to

presel.offset(,1).select
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
RWayneHAuthor Commented:
Worked!!  awesome thanks.
0
RWayneHAuthor Commented:
EXCEL-lent!!! thanks.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.