Need help with modifying VBA to reference columns (vs. cell values)

try change to

        .Cells(1).Resize(, 9).Value = Array("Unit", "Hull No", "Class", _
                "Home Port", "State", "Year", "Month", wsName, "Value")