Not seeing cells as blank
I have a sheet that I copy and past into another in a macro using
paste speical values.....most of the cells are blank. I am using a
formula to pick the last 3 rows that have actually info which worked
in a new sheet but does not work when I copy and paste a large sheet
into another....it seems like it does not see the blank cells
correctly....
Please help this is the last piece of the puzzle....
Sheets("P124 copy1").Select
Range("a1").Select
With ActiveSheet
..Cells.Font.Bold = False
..Range("IV2").End(xlToLeft).EntireColumn.Font.Bol d = True
..Range("A" & Rows.Count).End(xlUp).EntireRow.Copy
Sheets("P124 copy1").Select
Range("a1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Sheets("P124 copy1").Select
Range("a1").Select
End With
With ActiveSheet
..Cells.Font.Bold = False
..Range("IV2").End(xlToLeft).EntireColumn.Font.Bol d = True
..Range("A" & Rows.Count).End(xlUp).Offset(-1, 0).EntireRow.Copy
Sheets("P124 copy1").Select
Range("a2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Sheets("P124 copy1").Select
Range("a1").Select
End With
With ActiveSheet
..Cells.Font.Bold = False
..Range("IV2").End(xlToLeft).EntireColumn.Font.Bol d = True
..Range("A" & Rows.Count).End(xlUp).Offset(-2, 0).EntireRow.Copy
Sheets("P124 copy1").Select
Range("a3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Sheets("P124 copy1").Select
Range("a1").Select
End With
|