Dear Expert

I'm trying to pull data from a seperate sheet to another to create
labour coverage chart. I would like to pull it over without bringin
any rows with 0 values so that there are no empty spaces in th
chart. when i try an if equation to do this it just doubles the dat
between 0's
the data would originally look like thi

name in ou
joe 9:00 15:0
dav
mike
chris 12:00 20:0

I would like to pull the data to the chart page so that it come
across to a set sized data table like thi

name in duratio
joe 9:00 6:0
chris 12:00 8:0

I would appreciate anyone assistance in this matter

Hi bpman,

Sub CopyNonBlank()
Dim rngUsed As Range
Dim rngToCopy As Range
Dim shtNew As Worksheet

'assumes the range you wish to copy is in Sheet1
Set rngUsed = Worksheets("Sheet1").UsedRange

Dim cell As Range

' Test for non-blank cells in column 2 of the range
' if the test is successful
' put entire row in a holding range rngToCopy
For Each cell In rngUsed.Columns(2).Cells
If Not IsEmpty(cell.Value) Then
If rngToCopy Is Nothing Then
Set rngToCopy = cell.EntireRow
Else
Set rngToCopy = Union(rngToCopy, cell.EntireRow)
End If
End If
Next

' add a sheet and copy the range
Set shtNew = Sheets.Add(Type:=xlWorksheet)
rngToCopy.Copy shtNew.Range("A1")
End Sub

Ed Ferrero

I'm trying to pull data from a seperate sheet to another to create a
labour coverage chart. I would like to pull it over without bringing
any rows with 0 values so that there are no empty spaces in the
chart. when i try an if equation to do this it just doubles the data
between 0's.
the data would originally look like this

name in out
joe 9:00 15:00
dave
mike
chris 12:00 20:00

I would like to pull the data to the chart page so that it comes
across to a set sized data table like this

name in duration
joe 9:00 6:00
chris 12:00 8:00

I would appreciate anyone assistance in this matter.