Question

I have asked and provided my own answer, although it is not good but it works.
Previous Question

However, now I would like to link cells from another sheet. However, the program I wrote could not make reference among cells from one sheet to another sheet.

Example

Sheet1, Column A

Sheet2, row 1

I want to have

Sheet1!A1 = Sheet2!A1
Sheet1!A2 = Sheet2!B2

Answer 1

Is this what you are trying by any chance?

Option Explicit

Sub Sample()
    Dim cRange As Range, rrange As Range
    Dim i As Long, j As Long
    Dim cPrompt As String, cTitle As String
    Dim rPrompt As String, rTitle As String

    On Error GoTo Whoa

    cPrompt = "Please Choose a Column without Header"
    cTitle = "Specify Column Range"

    rPrompt = "Please Choose Starting cell"
    rTitle = "Specify row Range"

    Set cRange = Application.InputBox(cPrompt, cTitle, Type:=8)
    Set rrange = Application.InputBox(rPrompt, rTitle, Type:=8)

    For i = 1 To cRange.Count
        rrange.Offset(j).Formula = "=" & cRange.Parent.Name & _
        "!" & cRange.Cells(1, i).Address

        j = j + 1
    Next i

    Exit Sub
Whoa:
    MsgBox Err.Description
End Sub