Divide values in different sheets by 1000, when each sheet have different number of rows

Using the test sheet I uploaded as example: Test.xlsm

Divide values in data sheet 1 and 2, which have different number of rows, by 1000.

The 'Goal' sheet is just for illustration, the vba code should work the code in the actual data sheets itself.

Try below code:

PHP Code: 

Option Explicit
Sub divide()
Dim lCell As Range, ws As Worksheet, rng As Range
For Each ws In Sheets
    If ws.Name = "Data Sheet 1" Or ws.Name = "Data Sheet 2" Then
        Set lCell = ws.Cells(Rows.Count, "L").End(xlUp)
        Set rng = ws.Range("E2", lCell)
        rng.Value = Evaluate("='" & ws.Name & "'!" & rng.Address & "/ 1000")
    End If
Next
End Sub