How To Copy a Row of information to individual cells on another sheet

[Andro1000]

I am trying to copy a row of information from one sheet to different selected cells on another sheet using a command button that allows you to specify which row you want to copy from and paste that information onto another sheet in specific cells. This is what I have so far, as you can see I have tried several different methods however nothing is working so far.

Private Sub CancelButton_Click()

Unload Me

End Sub
------------------------------------------
Private Sub ClearButton_Click()

Call UserForm_Initialize

End Sub
---------------------------------------------
Private Sub OKButton_Click()

'Determine Row
RowNumber = Me.TextBox1.Value

'copy the data

Sheets("Sheet1").Range("RowNumber,1").Copy
Sheets("Sheet2").Range("B,1").Paste
'Sheets("Sheet1").Range("RowNumber,2").Copy
'Sheets("Sheet2").Range("B,2").Paste
'Sheets("Sheet1").Range("RowNumber,3").Copy
'Sheets("Sheet2").Range("B,3").Paste
'Sheets("Sheet1").Range("RowNumber,4").Copy
'Sheets("Sheet2").Range("C,3").Paste
'Sheets("Sheet1").Range("RowNumber,5").Copy
'Sheets("Sheet2").Range("B,4").Paste
'Sheets("Sheet1").Range("RowNumber,6").Copy
'Sheets("Sheet2").Range("B,5").Paste
'Sheets("Sheet1").Range("RowNumber,7").Copy
'Sheets("Sheet2").Range("B,7").Paste
'Sheets("Sheet1").Range("RowNumber,8").Copy
'Sheets("Sheet2").Range("C,9").Paste
'Sheets("Sheet1").Range("RowNumber,9").Copy
'Sheets("Sheet2").Range("D,7").Paste
'Sheets("Sheet1").Range("RowNumber,10").Copy
'Sheets("Sheet2").Range("C,7").Paste
'Sheets("Sheet1").Range("RowNumber,11").Copy
'Sheets("Sheet2").Range("D,12").Paste


'ThisWorkbook.Sheets("Sheet1").Cells("RowNumber,1" ) = ThisWorkbook.Sheets("Sheet2").Cells("B,1")
'ThisWorkbook.Sheets("Sheet1").Cells("RowNumber,2" ) = ThisWorkbook.Sheets("Sheet2").Cells("B,2")
'ThisWorkbook.Sheets("Sheet1").Cells("RowNumber,3" ) = ThisWorkbook.Sheets("Sheet2").Cells("B,3")


'Sheets("Sheet2").Select
' Find the last row of data
'Sheets("Sheet2").Range("B1").Select
'ActiveSheet.Paste
'Sheets("Sheet2").Select

End Sub
----------------------------------------------
Private Sub UserForm_Click()

End Sub
----------------------------------------------
Private Sub UserForm_Initialize()

TextBox1.Value = ""

End Sub
--------------------------------------------

[ADezii]

This may not be the most effective approach, but it does work.

Dim strFrom As String
Dim intCtr As Integer
Dim shtFrom As Excel.Worksheet
Dim shtTo As Excel.Worksheet
 
Set shtFrom = ActiveWorkbook.Worksheets("Sheet1")
Set shtTo = ActiveWorkbook.Worksheets("Sheet2")
 
strFrom = InputBox$("Enter the From Row", "From Row")
 
If strFrom = "" Or Not IsNumeric(strFrom) Then Exit Sub
 
For intCtr = 1 To 11
  Select Case intCtr
    Case 1
      shtTo.Range("B1") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 2
      shtTo.Range("B2") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 3
      shtTo.Range("B3") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 4
      shtTo.Range("C3") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 5
      shtTo.Range("B4") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 6
      shtTo.Range("B5") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 7
      shtTo.Range("B7") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 8
      shtTo.Range("C9") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 9
      shtTo.Range("D7") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 10
      shtTo.Range("C7") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case 11
      shtTo.Range("D12") = shtFrom.Cells(CLng(strFrom), intCtr).Value
    Case Else
  MsgBox shtFrom.Cells(CLng(strFrom), intCtr).Value
  End Select
Next