VBA - Transferring certain columns of data to another sheet that meet a criteria

[NathanA]

I am using code to transfer data that don't have a blank cell in column A from "Data" to "ForIndustry". While the code works, I would like to only transfer columns A:P rather than the whole row. Any guidance would be much appreciated.

Sub transfer()
Set i = Sheets("Data")
Set e = Sheets("ForIndustry")
Dim d
Dim j
d = 1
j = 2


Do Until IsEmpty(i.Range("B" & j))


If i.Range("A" & j) <> "" Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value
End If
j = j + 1
Loop
End Sub

 

[Kenneth Hobson]

  'e.Rows(d).Value = i.Rows(j).Value
  e.Range(e.Cells(d, "A"), e.Cells(d, "P")).Value = _
   i.Range(i.Cells(j, "A"), i.Cells(j, "P")).Value

 

[Kenneth Hobson]

Of course the more efficient solution would be to use AutoFilter and copy the visible Specialcells.

 

[NathanA]

Thanks, that works perfectly!

 

[NathanA]

Is it possible to add a condition (whether column E is >= to 1st July 2017) to the below

'If i.Range("A" & j) <> "" Then