Copies data from one sheet to another sheet but skips one column of data

[Kenor]

Hi everyone!

Actually I already use below formula to copies data from another sheet to another sheet.
That is, by clicking one bevel button, then all the selected data will be pasted to another sheet.

Sub Bevel2_Click()

Dim wsRegister_IN As Worksheet
Dim wsDatabase As Worksheet
Dim CopyLastRow As Long
Dim DestLastRow As Long

Set wsRegister_IN = Worksheets("Register IN")
Set wsDatabase = Worksheets("Database")

CopyLastRow = wsRegister_IN.Range("A" & wsRegister_IN.Rows.Count).End(xlUp).Row + 1
DestLastRow = wsDatabase.Range("A" & wsDatabase.Rows.Count).End(xlUp).Row + 1

wsRegister_IN.Range("A3", "J" & CopyLastRow).Copy Destination:=wsDatabase.Range("A" & DestLastRow)
Application.CutCopyMode = False

End Sub


But because in another sheet already create a formula in one column between copies of the data.
Then how can I modify the VBA program above to skip that column when pasted to another sheet.


Thank you.

 

[johnnyL]

Judging by the lack of responses, I am guessing that you should be specific about which column you want to skip copying to wsDatabase.

 

[Michael M]

My guess is you might need this
wsRegister_IN.Range("A3:J" & CopyLastRow).

 

[Kenor]

Judging by the lack of responses, I am guessing that you should be specific about which column you want to skip copying to wsDatabase.

Sorry, my question is a bit incomplete.

Actually, from the data ("A3", "J" & CopyLastRow) in the Register_IN sheet,
I want to skip the data for column F from being copied into the Database sheet.

How I can modified it?


Thanks

 

[Fluff]

How about

wsRegister_IN.Range("A3:E" & CopyLastRow).Copy Destination:=wsDatabase.Range("A" & DestLastRow)
wsRegister_IN.Range("G3:J" & CopyLastRow).Copy Destination:=wsDatabase.Range("G" & DestLastRow)

 

[Kenor]

How about

wsRegister_IN.Range("A3:E" & CopyLastRow).Copy Destination:=wsDatabase.Range("A" & DestLastRow)
wsRegister_IN.Range("G3:J" & CopyLastRow).Copy Destination:=wsDatabase.Range("G" & DestLastRow)

Thanks a lot for your help!

It's works..!

 

[Fluff]

Glad we could help & thanks for he feedback.