I would like to only copy data when the cell in Column i is not empty. I'm still learning and would welcome any pointers if there are any blantent errors in my code.

Thank you in advance. John

Sheets.Add.Name = "Forecast"    ' Add new sheet called "FORCAST"

Dim MyLastRow As Long, x As Long, y As Long, w As Long, z As Long   ' Set Variables
Dim sWBU As Worksheet, sWBUT As Worksheet
Dim varConctnt As Variant

Set sWBU = Worksheets("2014")   ' Name of worksheets for data source
Set sWBUT = Worksheets("Forecast")  ' Name of worksheets for data destination

MyLastRow = sWBU.UsedRange.Rows.Count   'Find Final Row in dataset
varConctnt = "FR-25-UK-" 'Used to concatenate text cell value

x = 2
w = 1
z = 9
For y = 30 To MyLastRow     ' first row of the source data

sWBUT.Cells(x, 1).Value = varConctnt & sWBU.Cells(y, z).Value & "-URF"
z = z + 2
w = w + 2
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 2
w = w - 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 29
w = w + 2
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value
z = z + 5
w = w + 1
sWBUT.Cells(x, w).Value = sWBU.Cells(y, z).Value

x = x + 1
z = 9
w = 1
Next y
varConctnt = ""