Exclude Blank Rows in VBA copy/paste

[jojo_lisac]

I've set up a macro to copy data from one Workbook to another. The problem I'm having is that the data changes each time so I might have 1 row or 11 rows. I want to make sure I copy over all of the non-blank rows, but if it includes the blank rows, my upload is failing because the platform I'm uploading to sees the blank rows I've copied over and thinks there's missing data.

I've changed skip blanks to true, but that's not working.


How do I only select non-blank rows while still making sure I'm in the range of rows 3-13?



Windows("Worksheet1.csv").Activate

Range("A2").Select

Windows("Wooksheet2.xlsm").Activate

Rows("3:13").Select

Selection.Copy

Windows("Worksheet1").Activate

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=True, Transpose:=False

Application.CutCopyMode = False


Thanks in advance!

 

[jolivanes]

If you run this, are the so called empty cells in Column A red? If not, the cells are not really empty. Happens quite often when data is imported.
Change range reference if required.

Sub Color_Empties_Red()
    ActiveSheet.Range("A3:A13").Resize(, ActiveSheet.UsedRange.Columns.Count).SpecialCells(4).Interior.Color = vbRed
End Sub