Hi all,
I got and for the below code:
What is the problem...
I got and for the below code:
Code:
Sub ProcessData()
Dim LastRow As Long
Dim sh As Worksheet
Dim i As Long
Set sh = Worksheets("DFT Dp")
With Worksheets("Load Sheet")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
sh.Cells(i, "E").Value = .Cells(i, "H").Value _
* Application.VLookup(.Cells(i, "A").Value, Sheets("Pcode-table").Range("A:AE"), 31, False)
Next i
End With
End Sub
What is the problem...