Skip a column in VBA Macro

[Maygirl123]

Hello guys,

I am quite new to VBA world and can't really figure out the code correctly. I have two sheets, Users and Sellers, which are identical, except that Support sheet has a newly added G column, which I want Macro to skip. For now the code before the G column was this:

Range("A5:I100").Select
Selection.Copy
Sheets("Sellers").Select

For X = 1 To 1000

If Range("B4").Offset(X).Value < 1 Then

Range("A4").Offset(X).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("Users").Select

Range("A5:I100").ClearContents


Exit For

End If

How can I tell it to skip G column cause it is pasting the information in that column too. Thank you all for the help!

 

[StephenCrump]

Welcome to the Forum!

Is this what you're trying to do?

	A	B	C	D	E	F	G	H	I
1
2
3
4
5	Blah	Blah	Blah	Blah	Blah	Blah	IGNORE	More blah	More blah
6	Blah	Blah	Blah	Blah	Blah	Blah	IGNORE	More blah	More blah
7	Blah	Blah	Blah	Blah	Blah	Blah	IGNORE	More blah	More blah
8	Blah	Blah	Blah	Blah	Blah	Blah	IGNORE	More blah	More blah
9	Blah	Blah	Blah	Blah	Blah	Blah	IGNORE	More blah	More blah
10	Blah	Blah	Blah	Blah	Blah	Blah	IGNORE	More blah	More blah
Users

Before:

	A	B
1		Stuff
2		Stuff
3		Stuff
4		Stuff
5		Stuff
6		Stuff
7		Stuff
8		Stuff
Sellers

After:

	A	B	C	D	E	F	G	H
1		Stuff
2		Stuff
3		Stuff
4		Stuff
5		Stuff
6		Stuff
7		Stuff
8		Stuff
9	Blah	Blah	Blah	Blah	Blah	Blah	More blah	More blah
10	Blah	Blah	Blah	Blah	Blah	Blah	More blah	More blah
11	Blah	Blah	Blah	Blah	Blah	Blah	More blah	More blah
12	Blah	Blah	Blah	Blah	Blah	Blah	More blah	More blah
13	Blah	Blah	Blah	Blah	Blah	Blah	More blah	More blah
14	Blah	Blah	Blah	Blah	Blah	Blah	More blah	More blah
Sellers

Sub Test()

    Dim ws As Worksheet
    Dim r As Long
    
    Set ws = Worksheets("Sellers")
    r = ws.Range("B" & Rows.count).End(xlUp).Row + 1
    With Worksheets("Users")
        .Range("A5:F100").Copy
        ws.Range("A" & r).PasteSpecial Paste:=xlPasteValues
        .Range("H5:I100").Copy
        ws.Range("G" & r).PasteSpecial Paste:=xlPasteValues
        .Range("A5:I100").ClearContents
    End With
    
End Sub