VBA kopier fra ark til ark alt efter indtastning.

Hej alle.
Jeg har en makro, der åbner en csv fil.
Jeg har en stump VBA kode der åbner en popup boks og der kan man skrive et tal ud for den række man gerne vil have fra csv filen.
popup VBA er her:

Sub EnterNumber()
  On Error Resume Next
  Dim dblAmount As Double
  dblAmount = InputBox("Please enter the required amount", "Enter Amount")
  If dblAmount <> 0 Then
      Range("A1") = dblAmount
  Else
      MsgBox "You did not enter a number!"
  End If
End Sub
-- -- --
Her er det, der åbner min CSV fil:
Sub SemicolonSep()
Dim sPath As String
sPath = ThisWorkbook.Path & "\semicolonseparated.txt"
Workbooks.OpenText Filename:= _
sPath, DataType:=xlDelimited, Semicolon:=True, Local:=True
End Sub
--  --  --
Jeg kan finde 1000vis af forslag til VBA kode for at kopiere fra 2 forskellige regneark med hvert sit "ARK1", men det virker bare ikke sat sammen.
Enken kører det hele i loop eller der kommer en out of range fejl.

Så hvorledes kan det laves, så min VBA kode fra regneark1 ark1 åbner en csv fil som et nyt regneark og efterfølgende beder brugeren om (i en popup boks) at skrive et tal som identificerer den linje i CSV regnearket , som skal kopieres over i hukommelsen, så brugeres selv kan sætte den ind med "ctrl V" 
Mine tanker går på
IF range("A1")=1 THEN ´fra iCSV filen
copy range("a2:e2")... fra CSV filen til hukommelsen.

men når jeg prøver, så virker det ikke.

mvh
Jacob