Run time error 424

[dracula]

I have a very basic code to copy "non-blank" data from one sheet and paste to another. The code is not complete yet - I am running in debug mode I get the above error. My code is as below.

Sub SampleFind()
Dim StrWord As String
Dim Quantity As String
Dim i As Long

Call nrows

For j = 2 To 2
For i = 2 To nrows1

StrWord = Sheets("Sheet6").Cells(i, 1).Value
Quantity = Sheets("Sheet6").Cells(i, j).Value

If (Quantity = "") Then
Else
Cells(i, 1).Value.Copy Destination:=Sheets("Sheet8").Cells(i, j) - I get the error when debugging at this location
End If


Next i
Next j
End sub

 

[Momentman]

Have you tried

Sheets("SheetX").Cells(i, 1).Copy Sheets("Sheet8").Cells(i, j)

 

[AngelJ]

Have you tried

Sheets("SheetX").Cells(i, 1).Copy Sheets("Sheet8").Cells(i, j)

Your code will work but the highlighted portion is a bit misleading. The Value part was the problem:

Cells(i, 1).Value.Copy Destination:=Sheets("Sheet8").Cells(i, j)

 

[Momentman]

Your code will work but the highlighted portion is a bit misleading. The Value part was the problem:

Apologies for that. If that sheet isn't the active worksheet, then he would be copying the from the wrong sheet/cell, hence my adding the sheet name so the code picks up the correct cell.

 

[AngelJ]

Apologies for that. If that sheet isn't the active worksheet, then he would be copying the from the wrong sheet/cell, hence my adding the sheet name so the code picks up the correct cell.

No problem! That makes sense. The red text just made it seem like that was the solution to the run time error.