Excel Forum

Code: Select all

Sub CutStockToNewSheet()
On Error Resume Next
With Sheets("sheet2")
        .Range("B2:B50000").Value = Sheets("sheet1").Range("G2:G50000").Value
        .Range("C2:C50000").Value = Sheets("sheet1").Range("H2:H50000").Value
        .Range("D2:D50000").Value = Sheets("sheet1").Range("I2:I50000").Value
    With .Range("B2", .Range("b" & .Rows.Count).End(xlUp))
        .RemoveDuplicates Columns:=1, Header:=xlNo
    End With
End With
    Range("B2").Select
End Sub

Code: Select all

Sub CutStockToNewSheet()
    On Error Resume Next
    With Sheets("sheet2")
            .Range("B2:D50000").Value = Sheets("sheet1").Range("G2:I50000").Value
'            .Range("C2:C50000").Value = Sheets("sheet1").Range("H2:H50000").Value
'            .Range("D2:D50000").Value = Sheets("sheet1").Range("I2:I50000").Value
        With .Range("B2", .Range("b" & .Rows.Count).End(xlUp)).Resize(, 3)
            .RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo
        End With
    End With
'        Range("B2").Select
End Sub