Более универсальный вариант:
' объявляем переменные типа "Лист"
Dim mySheetStat As Worksheet
Dim mySheetMoskwa As Worksheet
' связываем переменные с конкретными объектами
Set mySheetStat = ActiveWorkbook.Worksheets("статистика")
Set mySheetMoskwa = ActiveWorkbook.Worksheets("москва")
' обращение к диапазонам, можно использовать именные
mySheetStat.Range("A1").Value = mySheetMoskwa.Range("A2").Value
' альтернативный вариант - задать "координаты" ячеек
mySheetStat.Cells(1, 1).Value = mySheetMoskwa.Cells(2, 1).Value