insert and copy cells

[beeedit]

Looking for some assistance...please

Here's my sheet

employee# Name Dept Hour1 Hour2...Hour3
12356 Jeff 123 8 4 6
333 Tammy 453 8 0 2
...

What I want this to look like is:

employee# Name Dept Hour1 Hour2...Hour10
12356 Jeff 123 8
12356 Jeff 123 4
12356 Jeff 123 6
333 Tammy 453 8
333 Tammy 453 2

Basically I am inserting a blank row every time Hours2...Hours10 has a value, I then want to copy employee#,Name, Dept into the blank row with each occurence of hours2...hours10

Here is what I have, I am having trouble witht range, copy, paste

Sheets("totals").Select

counter = 2
Do While Not EndofFile

Set curcell = Worksheets("totals").Cells(counter, 10)

If curcell <> "" Then
counter = counter + 1
Set curcell = Worksheets("totals").Cells(counter, 10)
curcell.EntireRow.Insert
strRange = "A" + counter + ":" + "F" + counter
Range("strRange").Select

Selection.Copy
Range(curcell).Select
ActiveSheet.Paste
End If
counter = counter + 1
Loop

thanks

[ This Message was edited by: beeedit on 2002-03-30 10:29 ]

[beeedit]

[ This Message was edited by: beeedit on 2002-03-30 10:30 ]

[beeedit]

Any suggestions????

Thanks,