Copying data over to another sheets specific cells

This is the data I want to copy over:

in sheet 1 column and I would like it pasted in sheet 2 column 1.
sheet 1 column 9 and paste it in sheet 2 column 2
sheet 1 column 4 and paste in sheet 2 column 3
sheet 1 column 7 and paste in sheet 2 column 4
sheet 1 column 12 and paste in sheet 2 column 5

This is my current code

Option Explicit

Sub status()

Application.ScreenUpdating = False

Dim x As Long, eRow As Long
x = 8

With Worksheets("Master Bid Sheet")
Do While Not IsEmpty(.Cells(x, 9))
Select Case .Cells(x, 9).Value
Case "Closed", "Accepted"

With Worksheets("Construction Management")
eRow = .Cells(.Rows.Count, 9).End(xlUp).Offset(1, 0).Row
End With
.Rows(x).Copy Destination:=Worksheets("Construction Management").Rows(eRow)

End Select
x = x + 1
Loop
End With
Application.ScreenUpdating = True
End Sub


I know I need to replace .Rows(x).Copy Destination:=Worksheets("Construction Management").Rows(eRow) with new code. Can anyone help?

Please use code tags with your code.
Which ones are sheets1 and 2 in your code?

Sorry about that I didn't know I will next time. However, the master bid sheet is sheet 1 and construction management is sheet2

Currently, the code looks at Case "Closed", "Accepted", variable rows, column 9, it then copies the entire row in to sheet construction mg.
What would happen to these condition when you copy the columns? Or do you just want to copy the columns in to cons mg sheet?

Yes I just want the columns copied over not the entire row. And the information in the columns. But it has to be either closed or accepted it cannot be active or rejected (the other information in the cells)

If you are copying to column 9

   ms.Range("I" & eRow).Resize(, 5) = a

Untested

Option Explicit

 Sub status()

 Application.ScreenUpdating = False

 Dim eRow As Long, ms As Worksheet, LR&, i&, a

 Set ms = Worksheets("Construction Management")
   eRow = ms.Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
 With Worksheets("Master Bid Sheet")
    LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        For i = 8 To LR
            Select Case .Cells(i, 9).Value
              Case "Closed", "Accepted"
               a = Array(.Cells(i, "A").Value, .Cells(i, "I").Value, .Cells(i, "D").Value, .Cells(i, "G").Value, .Cells(i, "L").Value)
             ms.Range("A" & eRow).Resize(, 5) = a
            End Select
        Next i
 End With
 Application.ScreenUpdating = True
 End Sub

Thanks for the help, however this is not doing anything when I run it. Any suggestions?

Do you rows starting from 8 in column 9 which have either "Closed", "Accepted"?

Case "Closed", "Accepted"

INTO

Case Is = "Closed", "Accepted"

Yes it can either be closed or accepted. However, it is getting copied from column 9 in sheet1 and being pasted in column 2 of sheet 2. I uploaded a document of what it looks like and what I want it to look like, maybe this will help?

My corrected code does exactly

Is there a reason it won't work in the actual spreadsheet? It works in the document I uploaded but not the actual spreadsheet I am using this for?

Do you have the same sheet names as the sample? If not, you need to change the names. Or,
Go to the code itself. Put the cursor inside the code and press F8 which able you to step over line by line and will tell us if there is any error on the code.

[code]
your code
[code]

Or highlight your code, press the pound sign from quick reply #

Why does this work in the original spreadsheet but not in the actual one I want to use. Also it is still saying that

eRow = ms.Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1

is wrong?

eRow = ms.Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1

INTO

eRow = Worksheets("Construction Management").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1

I suspect your sheet name is wrong- may have a space, or typo.
erow should also be a long variable.