Changing Existing Macro To Transpose Rows To Columns

I have the following macro which I use to transpose a number of columns in one sheet to rows in another sheet.

PHP

Sub task1()Dim i As Integer, n As LongFor i = 5 To Columns.Count Step 2    n = n + 1    With Sheets("Working_Checklist_1").Cells(10, i).Resize(16)        Sheets("Summary_Intermediate").Cells(n + 2, "c").Resize(.Columns.Count, .Rows.Count) _        .FormulaArray = "=if(transpose(Working_Checklist_1!" & .Address & ")=0,"""",transpose(Working_Checklist_1!" & .Address & "))"    End WithNextEnd Sub 

I'd like to change this macro so to transpose from rows to columns. I've tried a couple of things, but can't quite get it to work.

I'd like to transpose every second cell starting from E7 to IV7 in Working_Checklist into column BU in Summary_Intermediate, starting from BU3.