Snasui Excel Forum

Code: Select all

Dim mylastrow As Long
    mylastrow = Sheets("Hatching").Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("B9:B10").Copy
    Sheets("Hatching").Range("A" & mylastrow).PasteSpecial xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, , False
    

Code: Select all

Dim mylastrow As Long
    mylastrow = Sheets("report").Range("I" & Rows.Count).End(xlUp).Row + 1
    Range("L9:L18").Copy
    Sheets("Report").Range("I" & mylastrow).PasteSpecial xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, , False
    

Code: Select all

Sub Report_Click()
'    Dim mylastrow As Long
    Dim lstRng As Range
    Dim rng As Range

'    mylastrow = Sheets("report").Range("H" & Rows.Count).End(xlUp).Row + 1
    With Sheets("M2")
        For Each rng In .Range("h9,i9,l9")
            With Sheets("Report")
                Set lstRng = .Cells(10, .Columns.Count).End(xlToLeft).Offset(0, 1)
            End With
            rng.Resize(10).Copy
            lstRng.PasteSpecial xlPasteValues
            Application.CutCopyMode = False
        Next rng
    End With
'    Range("H9:H18").Copy
'    Sheets("Report").Range("H" & mylastrow).PasteSpecial xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, , False
'
'    mylastrow = Sheets("report").Range("I" & Rows.Count).End(xlUp).Row + 1
'    Range("I9:I18").Copy
'    Sheets("Report").Range("I" & mylastrow).PasteSpecial xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, , False
'
'    mylastrow = Sheets("report").Range("J" & Rows.Count).End(xlUp).Row + 1
'    Range("L9:L18").Copy
'    Sheets("Report").Range("J" & mylastrow).PasteSpecial xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, , False
End Sub

Code: Select all

'Other code
Dim lstRng As Range
Dim rng As Range, j As Integer
Dim r As Range
'    mylastrow = Sheets("report").Range("H" & Rows.Count).End(xlUp).Row + 1
With Sheets("M2")
    For Each rng In .Range("h9,i9,l9")
        With Sheets("Report")
            Set lstRng = .Cells(10, .Columns.Count).End(xlToLeft).Offset(0, 1)
        End With
        j = 0
        For Each r In rng.Resize(10)
            lstRng.Offset(j, 0).Value = r.Value
            j = j + 2
        Next r
'            rng.Resize(10).Copy
'            lstRng.PasteSpecial xlPasteValues
'            Application.CutCopyMode = False
    Next rng
End With
'Other code