To paste data to another sheet by separating several columns

[Kenor]

Hi All,

I need help me to edit below formula to copy & paste data from FG_SHIP sheet to SHIPMENT_DATA sheet but need to separate some column.
1. Copy data from column "A3:F" & paste to "A3:F".
2. Copy data from column "G3:G" & paste to "H3:H"

Sub RoundedRectangle3_Click()

Dim wsFG_SHIP As Worksheet
Dim wsSHIPMENT_DATA As Worksheet
Dim CopyLastRow As Long
Dim DestLastRow As Long

Set wsFG_SHIP = Worksheets("FG SHIP")
Set wsSHIPMENT_DATA = Worksheets("SHIPMENT_DATA")

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

wsFG_SHIP.Range("A3", "L" & CopyLastRow).Copy Destination:=wsSHIPMENT_DATA.Range("A" & DestLastRow)
wsFG_SHIP.Range("A3", "A" & CopyLastRow).EntireRow.Delete

End Sub

 

[bebo021999]

Option Explicit
Sub RoundedRectangle3_Click()
Dim wsFG_SHIP As Worksheet
Dim wsSHIPMENT_DATA As Worksheet
Dim CopyLastRow As Long
Dim DestLastRow As Long
Set wsFG_SHIP = Worksheets("FG_SHIP")' it was "FG SHIP" in your original code. Correct it to actual sheet name
Set wsSHIPMENT_DATA = Worksheets("SHIPMENT_DATA")
CopyLastRow = wsFG_SHIP.Range("A" & wsFG_SHIP.Rows.Count).End(xlUp).Row
DestLastRow = wsSHIPMENT_DATA.Range("A" & wsSHIPMENT_DATA.Rows.Count).End(xlUp).Row + 1
wsFG_SHIP.Range("A3:F" & CopyLastRow).Cut Destination:=wsSHIPMENT_DATA.Range("A" & DestLastRow)' cut = copy then delete initial range
wsFG_SHIP.Range("G3:G" & CopyLastRow).Cut Destination:=wsSHIPMENT_DATA.Range("H" & DestLastRow)' cut = copy then delete initial range
End Sub

 

[Kenor]

Option Explicit
Sub RoundedRectangle3_Click()
Dim wsFG_SHIP As Worksheet
Dim wsSHIPMENT_DATA As Worksheet
Dim CopyLastRow As Long
Dim DestLastRow As Long
Set wsFG_SHIP = Worksheets("FG_SHIP")' it was "FG SHIP" in your original code. Correct it to actual sheet name
Set wsSHIPMENT_DATA = Worksheets("SHIPMENT_DATA")
CopyLastRow = wsFG_SHIP.Range("A" & wsFG_SHIP.Rows.Count).End(xlUp).Row
DestLastRow = wsSHIPMENT_DATA.Range("A" & wsSHIPMENT_DATA.Rows.Count).End(xlUp).Row + 1
wsFG_SHIP.Range("A3:F" & CopyLastRow).Cut Destination:=wsSHIPMENT_DATA.Range("A" & DestLastRow)' cut = copy then delete initial range
wsFG_SHIP.Range("G3:G" & CopyLastRow).Cut Destination:=wsSHIPMENT_DATA.Range("H" & DestLastRow)' cut = copy then delete initial range
End Sub

Thanks @bebo021999 for your help!