Sub toCSV()
       Dim wsh As Worksheet, wsh1 As Worksheet, wsh2 As Worksheet
       Dim rng1, rng2 As Range, rRow&
With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
       On Error GoTo err
       Set wsh = ActiveSheet
       Set wsh1 = Sheets("IRR"): Set wsh2 = Sheets("CSV")
       Set rng1 = wsh1.[A:A].SpecialCells(xlCellTypeConstants, 1)
       Set rng2 = Intersect(wsh1.[O:R], rng1.EntireRow)
       With wsh2
           rRow = Application.CountA(.[B:B])
           rng2.Copy .[B1].Offset(rRow)
           rng1.Copy .[D1].Offset(rRow)
           rRow = Application.CountA(.[B:B])-1
           .[A2:A3].AutoFill .[A2].Resize(rRow), 0
           .[F2:I3].AutoFill .[F2:I3].Resize(rRow), 0
           .[B2:E2].AutoFill .[B2:E2].Resize(rRow), 3
       End With
       Application.CutCopyMode = 0: wsh.Activate
       Set wsh = Nothing: Set wsh1 = Nothing: Set wsh2 = Nothing
err:
With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub