                 If rCell <> "" And rCell.Value <> vbNullString And rCell.Value <> 0 Then                      wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell.Offset(0, 0)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell.Offset(0, 0)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell.Offset(0, 0)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell.Offset(0, 0)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell.Offset(0, 0)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell.Offset(0, 0)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell.Offset(0, 0)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell.Offset(0, 0)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 0).Value = rCell.Offset(0, 0)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 00).Value = rCell.Offset(0, 00)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 00).Value = rCell.Offset(0, 00)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 00).Value = rCell.Offset(0, 00)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 00).Value = rCell.Offset(0, 00)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 00).Value = rCell.Offset(0, 00)                     wsO.Cells(wsO.Rows.Count, 0).End(xlUp).Offset(0, 00).Value = rCell.Offset(0, 00)                  