Pasting using a IF statement

[dgrimm]

Here is what I am trying to do.
Select a range and then according to what type of injurytype go to the appropiate tab and then offset by using a range that gives the horizontal offset and down 1 and pasting the selected range in that cell (array).

NumRange = the data to be copied and pasted
offsetcnt = the horizontal offset

Range("NumRange").Copy

If Sheets("AllStates").Range("B2") = "PT" Then
Sheets("PT").Range("A1").Offset(Range("offsetcnt").Value, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
ElseIf Sheets("AllStates").Range("B2") = "PP" Then
Sheets("PP").Range("A1").Select
Selection.Offset(Range("Offsetcnt").Value, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
ElseIf Sheets("AllStates").Range("B2") = "One_IT" Then
Sheets("One_IT").Range("A1").Select
Selection.Offset(Range("Offsetcnt").Value, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If

I am getting an error on my selection process.

Thanks in advanced

Dave

 

[dgrimm]

just realized that my rows and columns are reversed, fixed in the which now looks like..

Range("NumRange").Copy

If Sheets("AllStates").Range("B2") = "PT" Then
Sheets("PT").Range("A1").Offset(1, Range("offsetcnt").Value).Select
Selection.PasteSpecial Paste:=xlPasteValues
ElseIf Sheets("AllStates").Range("B2") = "PP" Then
Sheets("PP").Range("A1").Select
Selection.Offset(Range(1, "Offsetcnt").Value).Select
Selection.PasteSpecial Paste:=xlPasteValues
ElseIf Sheets("AllStates").Range("B2") = "One_IT" Then
Sheets("One_IT").Range("A1").Select
Selection.Offset(Range(1, "Offsetcnt").Value).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If