Copy columns to rows????

[Jacob Hilderbrand]

You cannot Transpose 500 Rows of data because there are only 256 Columns available.

Is this what you are trying to do?

Option Explicit
 
Sub TransferData()
If Range("A2").Text = "hjk" And _
Range("B2").Value = 2 And _
Range("A3").Text = "ert" And _
Range("B3").Value = 5 Then
Range("C5").Value = "hjk"
Range("D5").Value = 2
Range("E5").Value = "ert"
Range("F5").Value = 5
End Sub

Now do you need to check through several rows like this:
Check A2:B3
Then Check A4:B5
Then Check A6:B7
Etc...