Remember that you are limited in the number of columns. Since you are using two cells of data for each row and since you start at Column E you only can run this macro for 121 rows of data. After that you could go to a new row if you wanted.
Option Explicit
Sub Macro1()
Dim i As Long
Dim LastRow As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
'Starting with Column E so there is a 252 Column Limit
'Two Columns are used per Row of data so there is a 126 Row Limit
LastRow = Range("B65536").End(xlUp).Row
If LastRow > 130 Then
LastRow = 130
End If
Range("D5").Select
For i = 5 To LastRow
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Range("B" & i).Text
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Range("C" & i).Value
Next i
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub