For x = 1 To WeekLoop 
                    Sheet2.Range(tmpRng).Offset(0, -2).Value = SWeek 
                    Sheet2.Range(Sheet2.Range(tmpRng), Sheet2.Range(tmpRng).Offset(6)).Value = _ 
                    Sheet1.Range(Sheet1.Range(WAddress).Find(SWeek).Offset(, 1), Sheet1.Range(WAddress).Find(SWeek).Offset(, 7)).Value 
                    For Each pCell In Sheet2.Range(Sheet2.Range(tmpRng), Sheet2.Range(tmpRng).Offset(6)).Cells 
                        If IsNumeric(pCell.Value) And StartTime <> "" Then 
                            pCell.Value = StartTime 
                        End If 
                    Next pCell 
                    If SWeek = rCell.Offset(, 4).Value Then 
                        SWeek = 1 
                    Else 
                        SWeek = SWeek + 1 
                    End If 
                    tmpRng = Sheet1.Range(tmpRng).Offset(, 9).Address 
                Next x

This is static within the loop 
Sheet1.Range(Sheet1.Range(FAddress).Offset(, 1), Sheet1.Range(FAddress).Offset(, 7)).Value
So 
 
Dim FAddyValue As Variant
FAddyValue = Sheet1.Range(Sheet1.Range(FAddress).Offset(, 1), Sheet1.Range(FAddress).Offset(, 7)).Value
Then use FaddyValue in the loop.Eliminates 6 'dots' per loop

Everytime you use 'Sheet2' within the loop it counts as a 'dot.' By definition, tmpRng is part of Sheet2, therefore doesn't need any such reference. 
With Sheet2
  For x = 1 To WeekLoop 'loop from week 1 to 52
      tmpRng.Offset(, -2).Value = 1
      Range(tmpRng, tmpRng.Offset(, 6)).Value = FAddyValue

If StartTime <> "" Then 'If False, Checking it 52 times won't make it True
For Each pCell In Range(tmpRng, tmpRng).Offset(, 6)).Cells 
    If IsNumeric(pCell) Then pCell.Value = StartTime 
 Next pCell    
 End If