Snasui Excel Forum

Code: Select all

Sub sheet2_2_Click()
On Error Resume Next
   Dim lng As Long, n As Long
    Dim rLastCol As Range, sn As Range
    lng = Sheets("sheet2-2").Range("b5")
    With Sheets("sheet1")
        Set rLastCol = .Range("A" & lng).End(xlToRight).Offset(0, 1)
    End With
  With Sheets("Sheet2-2")
        .Range("b7").Copy: rLastCol.PasteSpecial xlPasteValues
        .Range("b9").Copy: rLastCol.Offset(0, 1).PasteSpecial xlPasteValues
    Range("B7,B9").SpecialCells(xlCellTypeConstants).ClearContents
    End With
    Application.CutCopyMode = False
End Sub

Code: Select all

Sub sheet2_1_Click()
On Error Resume Next
   Dim IntRows As Long
    Dim n As Range, sn As Range
    IntRows = Rows.Count
    With Sheets("Sheet1")
        Set n = .Range("A" & IntRows).End(xlUp).Offset(1, 0)
    End With
    Set sn = Sheets("Sheet2-1").Range("A3:d3")
    sn.Copy
    n.PasteSpecial xlPasteValues
    Range("A3:d3").SpecialCells(xlCellTypeConstants).ClearContents
    Application.CutCopyMode = False
End Sub