We have a series of worksheets, ex 4. On each work sheet (1,2,3) there is some information that I need to move onto work sheet 4.

I need to take the info from Cells "A1" "F30" "E30" on work sheets 1-3 and paste them on work sheet 4 under "A" "B" and "C"

I need to take the value (actual number), not formula, of "E30"

This is what I have so far, any help would be appreciated.

Code:
Sub x()

Dim ws As Worksheet
Dim i As Integer

Sheet4.Cells.Clear

For i = 1 To 3
     Sheets(i).UsedRange.Range("A1").Copy Sheets("Total").Range("A" & Rows.Count).End(xlUp)(2)
     Sheets(i).UsedRange.Range("B4").Copy Sheets("Total").Range("B" & Rows.Count).End(xlUp)(2)
     Sheets(i).UsedRange.Range("D4").Copy Sheets("Total").Range("C" & Rows.Count).End(xlUp)(2)
Next i

End Sub