macros as below :-

Private Sub MODA()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
Set WB1 = Workbooks("A HSA Daily Yield VPB")
Set WB2 = Workbooks("A HSA Daily Scrap VPB")
Set SH1 = WB1.Sheets("Date Input")
Set SH2 = WB2.Sheets("Date Input")
Set SH3 = WB1.Sheets("FI")
Set SH4 = WB1.Sheets("FID")
Set SH5 = WB2.Sheets("Modular")
Set rng1 = SH1.Range("E13")
Set rng2 = SH2.Range("D18")

SH3.Activate
ActiveSheet.Range(rng1 & "116").Copy
SH5.Activate
ActiveSheet.Range(rng2 & "3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

With the above, I am able to copy the WB1.range 116 and paste on WB2.range 3,
I would to copy from WB1.range 116 to 120 at 1 go, and paste on WB2.range 3,
is there any way or shorter script instead of me repeating the copy paste
script 5 times to copy 116 to 120.

Appreciate your help. Thanks.