VBA Copy and Paste Offset, how to shift pasted values a few cells horizontally

[Excel Jason]

I have a VBA script that copies values from one tab and pastes them in the next available row on another tab; However, it pastes the values next to each other. Two of the four values I need pasted a few cells down. Example:

Current Script

Sub Button2()
Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            Worksheets("Dashboard").Range("F7:G7,Q7,S7").Copy
            Worksheets("SKU Tracker").Range("C" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True

End Sub

I suspect a quick edit to my code but I'm having a hard time. Thanks!

 

[Snakehips]

@Excel Jason Does this help?

Sub Button2()
'Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Dim NxtRw As Long
    
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            Rng1 = Worksheets("Dashboard").Range("F7:G7")
            Rng2 = Worksheets("Dashboard").Range("Q7,S7")
            
            With Worksheets("SKU Tracker")
                NxtRw = .Range("C" & Rows.Count).End(xlUp) + 1
                .Range("C" & NxtRw & ":D" & NxtRw) = Worksheets("Dashboard").Range("F7:G7")
                .Range("M" & NxtRw & ":N" & NxtRw) = Worksheets("Dashboard").Range("Q7,S7")
            End With
        
        End If
    
    'Application.ScreenUpdating = True

End Sub

 

[Excel Jason]

 

[Snakehips]

Sub Button2()
'Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Dim NxtRw As Long
    
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            Rng1 = Worksheets("Dashboard").Range("F7:G7")
            Rng2 = Worksheets("Dashboard").Range("Q7,S7")
            
            With Worksheets("SKU Tracker")
                NxtRw = .Range("C" & Rows.Count).End(xlUp).Row + 1
               
                .Range("C" & NxtRw & ":D" & NxtRw).Value = Worksheets("Dashboard").Range("F7:G7").Value
                .Range("M" & NxtRw & ":N" & NxtRw).Value = Worksheets("Dashboard").Range("Q7,S7").Value
            End With
        
        End If
    
    'Application.ScreenUpdating = True

End Sub

 

[Excel Jason]

Hey Snake,

It places data in the correct cells but it's grabbing the wrong data: I highlighted the cells it's pulling. It copies the SKU and date correctly but grabs 14,010 from the wrong row (One row below the correct row) and it's also grabbing the wrong volume figures.

Result on next Tab:

 

[Snakehips]

Jason, I fail to see how it is not grabbing F7:G7 and Q7:S7 from dashboard as per your original code?

 

[Excel Jason]

Agreed,

The values seem to be correct. Here is the VBA just for clarity

Sub Button2()
'Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Dim NxtRw As Long
    
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            Rng1 = Worksheets("Dashboard").Range("F7:G7")
            Rng2 = Worksheets("Dashboard").Range("Q7,S7")
            
            With Worksheets("SKU Tracker")
                NxtRw = .Range("C" & Rows.Count).End(xlUp).Row + 1
               
                .Range("C" & NxtRw & ":D" & NxtRw).Value = Worksheets("Dashboard").Range("F7:G7").Value
                .Range("M" & NxtRw & ":N" & NxtRw).Value = Worksheets("Dashboard").Range("Q7,S7").Value
            End With
        
        End If
    
    'Application.ScreenUpdating = True

End Sub

 

[Snakehips]

So are you now saying that placement and values are correct, so all is good?