Copy cell of two column only if both cell are not blank in another two column

[MelissaSx]

I have a excel sheets like this:

A  B      C   D
1          2   3
            4   5
2  3      3   4
4  5
1
           
1
    3
3  4

I should copy the column A and B in CD like as the example.
Copy only both cells contigous if not both empty. In the real sheet in column a there is a question and in the column B there is the correspondent response.
I search a VBA code to make this.

 

[Fluff]

Hi & welcome to the board
How about

Sub CopyPairs()
   Dim Rng As Range
   For Each Rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
      If Rng <> "" And Rng.Offset(, 1) <> "" Then
         Rng.Resize(, 2).Copy Range("C" & Rows.Count).End(xlUp).Offset(1)
      End If
   Next Rng
End Sub

 

[MelissaSx]

Hi & welcome to the board
How about

Sub CopyPairs()
   Dim Rng As Range
   For Each Rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
      If Rng <> "" And Rng.Offset(, 1) <> "" Then
         Rng.Resize(, 2).Copy Range("C" & Rows.Count).End(xlUp).Offset(1)
      End If
   Next Rng
End Sub

Thanks, i make manually a try with my pen, because i have to install the excel again, but i think it works. And thanks beacuse i learned how use some function i didn't knew.
I'll try with VBA when i have the program.