Snasui Excel Forum

Code: Select all

Sub CopyandPasteData()
    Dim r As Range, ra As Range
    Dim i As Integer
    i = 62
    Set ra = ActiveSheet.Range("M1", _
        ActiveSheet.Range("M1").End(xlDown))
    For Each r In ra
        If r = True Then
            Range("A" & i).Offset(1, 0).Resize(1, 11) _
                = r.Offset(0, -12).Resize(1, 11).Value
            i = i + 1
        End If
    Next r
End Sub