Elseif statements - 'Application-Defined or Object-defined error' help

[Sppinner]

Hello,

Currently I am trying to use Elseif statments to copy and paste information into a target cell from another cell on the same worksheet based on the value of the target cell.

When I try to run my code, I recieve the following error message:
'Run-time error 1004: Application-based or Object-based error"

Can anybody advise me on how to change my coding to fix this issue?
Here is the coding I have created:

Sub helpMe()

Dim i As Integer
Dim j As Integer

For i = 6 To 30

For j = 4 To 18

If Cells(i, j).Value = 5 Then
Range(A43).Select.Copy
Cells(i, j).Select.Paste

ElseIf Cells(i, j).Value = 4 Then
Range(A42).Select.Copy
Cells(i, j).Select.Paste

ElseIf Cells(i, j).Value = 3 Then
Range(A41).Select.Copy
Cells(i, j).Select.Paste

ElseIf Cells(i, j).Value = 2 Then
Range(A40).Select.Copy
Cells(i, j).Select.Paste

ElseIf Cells(i, j).Value = 1 Then
Range(A39).Select.Copy
Cells(i, j).Select.Paste

Else: Cells(i, j).Value = ""

End If

Next j

Next i

End Sub

Is someone able to assist me in fixing this error or tell me of a better way to do this?

Thank you,

-Sppinner

 

[bbott]

Range(A43).Select.Copy

These lines need to be written as:

Range("A43").Copy

When naming a cell in the Range object, it needs to be in quotes. You also don't need the .Select

 

[Sppinner]

Thank you for your help! It has gotten me past the run-time error 1004

Now however, I am getting "Runtime error 438: object doesn't support this property of method"

Thoughts on why this is?

 

[bbott]

Which line is the error on?

 

[Sppinner]

It's not highlighting any lines... any way for me to check manually?

 

[bbott]

(A43).Select.Copy
Cells(i, j).Select.Paste

Try replacing each of these sections like this:

Range("A43").Copy Cells(i, j)

 

[Sppinner]

Works like a charm! Thank you for your patience

 

[bbott]

You're welcome, glad it works.