loop through columns in range and only copy columns that have value of 0

I have this script that I would like to loop through the columns in the range and only copy the columns in which row 148 has a value of exactly 0

Range("V1:AP19").Select
    Selection.Copy
    Workbooks("pc opp.xlsm").Sheets("Trading").Activate
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=True