Gán công thức vào ô chuyển động

[gattaday]

Các cao nhân chỉ giáo giúp em với. Em đang tạo userform nhập liệu. Trong đó có cột Delay time. Nhưng em không biết sao để đưa công thức vào.
Ví dụ:
Private sub Save_click()
Dim sh as worksheet
Set sh = Thisworkbook.sheets("Nhapdata")
Dim lr As Long
lr = Application.WorksheetFunction.CountA(sh.Range(A:A))
sh.Range("A"& lr+1).Value = "=Row()-1"
sh.Range("B"& lr+1).Value = Format(Date,"yyyy-mm-dd")
sh.Range("C"& lr+1).Value = (Ngày Mượn)
sh.Range("D"& lr+1).Value = (Delay) =today - (Ngày mượn)
End sub

Như này thì em phải đưa công thước vào cột D như thế nào ạ. Em muốn n sẽ bằng today() - Giá trị cột C ở vị trí last row.
Các cao thủ giúp e gỡ lỗi với