Hi,
How can I make a variable, PCT, that calculates the
percent progress of this macro. Thanks, John

Dim cell As Range

For Each cell In Worksheets("Sheet1").Range("A1:A2401")
cell.Resize(1, 4).Copy


With Worksheets("Sheet2")

.Range("B2").PasteSpecial Transpose:=True
cell.Offset(0, 4).Value = .Range("B8").Value

End With

Next