Code:

```
Dim LastRow As Long
Dim LastCol As Long
eRow = 1
Do While Application.CountA(ws.Rows(eRow).EntireRow) > 0
eRow = eRow + 1
Loop
eCol = 1
Do While Application.CountA(ws.Columns(eCol).EntireColumn) > 0
eCol = eCol + 1
Loop
Set Rng = Range(Cells(1, 1), Cells((eRow - 1), (eCol - 1)))
If Rng Is Nothing Then
Else
PTOutput.Application.ScreenUpdating = False
PTOutput.Range("A1").Offset(0, 0) = Rng.Range("A1").Value
PTOutput.Range("A1").Offset(0, 1) = Rng.Range("B1").Value
PTOutput.Range("A1").Offset(0, 2) = Rng.Range("C1").Value
PTOutput.Range("A1").Offset(0, 3) = "Date"
PTOutput.Range("A1").Offset(0, 4) = "Value"
i = 1
For r = 1 To Rng.Rows.Count - 1
For c = 3 To Rng.Columns.Count - 1
PTOutput.Range("A1").Offset(i, 0) = Rng.Offset(r, 0).Value
PTOutput.Range("A1").Offset(i, 1) = Rng.Offset(r, 1).Value
PTOutput.Range("A1").Offset(i, 2) = Rng.Offset(r, 2).Value
PTOutput.Range("A1").Offset(i, 3) = Rng.Offset(0, c).Value
PTOutput.Range("A1").Offset(i, 4) = Rng.Offset(r, c).Value
i = i + 1
Next c
Next r
Application.ScreenUpdating = True
End If
```

How do I skip the whole row if PTOutput.Range("A1").Offset(0, 4) = "Value" is empty/blank?

Thanks