Copies data from one sheet to another sheet but skip one column

[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.

For example, I would like to skip data from column F when copies data from column A to J.

Thank you.

 

[Fluff]

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

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.