Hej!

Hittade ett excel dokument för att kunna fylla i och räkna poäng för golfrundan.

I dokumentet finns ett macro som kopierar data från Scorecard till database sheet. Jag skulle vilja ändra macrot att även kopiera namnet på banan. Namnet finns i B2 och kolumnen det ska kopieras till är AB. Jag har provat att maila killen som gjort det från början men hans emailadress finns inte längre.

Sub PlayerA()
    Dim destrange As Range
    Dim smallrng As Range
    Application.ScreenUpdating = False
    For Each smallrng In Sheets("Scorecard"). _
        Range("ad5:ad31").Areas
        Set destrange = Sheets("database").Range("A" & _
                        LastRow(Sheets("database")) + 1)
        smallrng.Copy
        destrange.PasteSpecial xlPasteValues, , False, True
        Application.CutCopyMode = False
    Next smallrng
    Application.ScreenUpdating = True
End Sub

Function LastRow(sh As Worksheet)
    On Error Resume Next
    LastRow = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
    On Error GoTo 0
End Function