Excel Formula or VBA to copy cells removing blanks? [closed]

Question 1

There is an easy way to do it:

Initial data:

enter image description here

Step1: copy all data from A:B. Select D1, right mouse click and select PasteSpecial->PasteValues:

enter image description here

Step2: with selected range with data in columns D:E (in my case D1:E8) press CTRL+G

enter image description here

Step3: in the GoTo dialog window press Special... and select Blanks

enter image description here

Step4: now all empty cells in D1:E8 are selected.

enter image description here

Step5: right mouse click on amy selected cell and press Delete

enter image description here

Step6: select "Shift cells up" and press OK. Done!

enter image description here

RESULT:

enter image description here

UPD: as follow up from comments, OP has =IF(Sheet1!D11="YES",Sheet1!A11, "") in A:B. And since "" not actually blank cell, we can't use Special->Blanks.

There is VBA solution:

Sub test()
    Dim lastrow As Long
    Dim cell As Range
    Dim rng As Range

    'change sheet name to suit
    With ThisWorkbook.Worksheets("Sheet1")
        'find lastrow in columns A:B
        lastrow = Application.Max(.Cells(.Rows.Count, "A").End(xlUp).Row, _
                                    .Cells(.Rows.Count, "B").End(xlUp).Row)
        'Copy values from A:B to D:E
        .Range("D1:E" & lastrow).Value = .Range("A1:B" & lastrow).Value
        'Iterates throught each cell in D:E and if it equals to "" - remember it
        For Each cell In .Range("D1:E" & lastrow)
            If cell.Value = "" Then
                If rng Is Nothing Then
                    Set rng = cell
                Else
                    Set rng = Union(rng, cell)
                End If
            End If
        Next
        'delete all empty cells (with "")
        If Not rng Is Nothing Then rng.Delete Shift:=xlUp

    End With
End Sub

Question 2

1) First, before you make any drastic changes to any workbook always make sure you have a backup copy or a recently saved copy in case you need to restore the original data.

2) Now, select the cells in one column from the top of your list to the bottom.

3) Make sure that all the blank cells in this selected range are the rows you want to delete.

4) Press the F5 key on your keyboard (or select Edit, Goto).

5) Click the Special... button.

6) Click the Blanks option and click OK. This will select all blank cells in the range you had previously selected.

7) Now choose Edit, Delete, select the Entire Row option and click OK.

8) I think this would do your requirement, if you still want to copy, select all the cells and copy to other cells.