by using VBA as stated below for 'Module2'.
Code: Select all
Sub UpToDate_Data()
Dim ws As Worksheet
Dim wt As Worksheet
Dim s As Long
Dim t As Long
Dim r As Long
Application.ScreenUpdating = False
Set ws = Worksheets("ItemList")
Set wt = Worksheets("AvilItem")
' Find first empty row in columns A:R on sheet AVILITEM
t = wt.Range("A:R").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
' Copy Item Code and Item Name
For s = 1 To 25
wt.Cells(t, 2 * s + 2).Value = ws.Range("b" & s + 2).Value
wt.Cells(t, 2 * s + 3).Value = ws.Range("c" & s + 2).Value
Next s
Application.ScreenUpdating = True
End Sub
YOURS Sincerely
Tarun@1964